HeaderCollection Object

The collection of HeaderItem object.

IDispatch
    IHeaderCollection

[Visual Basic 6.0]
Public Class HeaderCollection

[Visual C++]
public: interface IHeaderCollection

Thread Safety

Any public static (Shared in Visual Basic) members of this type are thread safe. Any instance members are not guaranteed to be thread safe.

Methods and Properties

Please refer to the following sample codes.

Example

[Visual Basic 6.0, VBScript, Visual 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;

Remarks

To learn more detail about HeaderCollection, please refer to Mail.Headers property.

See Also

Mail.Headers Property

Online Tutorials

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