Return the first header in the current message part.
Syntax
object.GetFirstHeader( HeaderField,
HeaderValue )
Parameters
- HeaderField
- A string which will contain the name of the first header field
when the method returns. This parameter must be passed by reference.
- HeaderValue
- A string which will contain the value of the first header field
when the method returns. This parameter must be passed by reference.
Return Value
A value of True is returned if the first header value was returned.
If the current message part does not contain any header fields, this
method will return False.
Example
The following example enumerates all of the headers in the main
part of the current message and adds them to a listbox:
Dim strHeader As String, strValue As String
Dim bResult As Boolean
bResult = MailMessage1.GetFirstHeader(strHeader, strValue)
Do While bResult
List1.AddItem strHeader & ": " & strValue
bResult = MailMessage1.GetNextHeader(strHeader, strValue)
Loop
See Also
Part Property,
GetHeader Method,
GetNextHeader Method,
SetHeader Method
|