HeaderItem.HeaderValue Property


Gets or sets the value of the header.

[Visual Basic 6.0]
Public Property Get HeaderValue() As String
Public Property Let HeaderValue(newVal As String) 
[Visual C++]
public: get_HeaderValue(BSTR* pVal);
public: put_HeaderValue(BSTR newVal);

Property Value

A String value indicating the value of the HeaderItem.

Example

[Visual Basic 6.0, VBScript, C++, Delphi] To get the full samples of EAGetMail, please refer to Samples section.

[Visual Basic 6.0]
Public Sub ParseHeaders()
    Dim oMail As New EAGetMailObjLib.Mail
    oMail.LicenseCode = "TryIt"
    oMail.LoadFile "c:\test.eml", False
    
    Dim oHeaders As EAGetMailObjLib.HeaderCollection
    Set oHeaders = oMail.Headers
    Dim i, nCount As Integer
    nCount = oHeaders.Count
    For i = 0 To nCount - 1
        Dim oHeader As EAGetMailObjLib.HeaderItem
        Set oHeader = oHeaders.Item(i)
        MsgBox oHeader.HeaderKey & ": " & oHeader.HeaderValue
    Next
End Sub


[VBScript] Sub ParseHeaders() Dim oMail Set oMail = CreateObject("EAGetMailObj.Mail") oMail.LicenseCode = "TryIt" oMail.LoadFile "c:\test.eml", False Dim oHeaders Set oHeaders = oMail.Headers Dim i, nCount nCount = oHeaders.Count For i = 0 To nCount - 1 Dim oHeader Set oHeader = oHeaders.Item(i) MsgBox oHeader.HeaderKey & ": " & oHeader.HeaderValue Next End Sub
[Visual C++] #include "stdafx.h" #include <windows.h> #include "eagetmailobj.tlh" using namespace EAGetMailObjLib; void ParseHeader() { try { IMailPtr oMail = NULL; oMail.CreateInstance(__uuidof(EAGetMailObjLib::Mail)); oMail->LicenseCode = _T("TryIt"); oMail->LoadFile( _T("c:\\test.eml"), VARIANT_FALSE ); IHeaderCollectionPtr oHeaders; oHeaders = oMail->Headers; int count = oHeaders->Count; for( int i = 0; i < count; i++ ) { IHeaderItemPtr oHeader; oHeader = oHeaders->Item(i); ::_tprintf( _T("%s: %s\r\n"), (TCHAR*)oHeader->HeaderKey, (TCHAR*)oHeader->HeaderValue ); } } catch( _com_error &ep ) { ::_tprintf( _T("%s\r\n"), (TCHAR*)ep.Description() ); } }
[Delphi] procedure ParseHeaders(); Var oMail: TMail; i: Integer; oHeaders: IHeaderCollection; oHeader: IHeaderItem; begin oMail := TMail.Create(Application); oMail.LicenseCode := 'TryIt'; oMail.LoadFile('c:\test.eml', false); oHeaders := oMail.Headers; for i := 0 To oHeaders.Count - 1 do begin oHeader := oHeaders.Item(i); ShowMessage(oHeader.HeaderKey + ':' + oHeader.HeaderValue); end; end;

See Also

Mail.Headers Property

Online Tutorials

Parse Email in VB6
Parse Email in Delphi
Parse Email in VC++