Hallo an die Experten
Ich habe da ein kleines Problem
Ich möchte in eine in VB erstelltes E-mail zusätzlich einen entsprechende Header Zeile einfügen. Bzw möchte ich auch d auf dem umgekehrten Weg gehen und diese entsprechende Header Zeile auslesen können. Habe aber keine wirkliche Idee wie das gehen könnte.
Zu Veranschaulichung habe ich einfach mal Muster der beiden Funktionen geschrieben. An Den Stellen wo die Kommentare drinstehen soll dann entsprechen die X-Header Zeile eingefügt werden oder aber auch ausgelesen werden.
Public Function Test_Email_Bereitsetellen() As Long
Dim o_outlook As Outlook.Application
Dim o_mail As Outlook.MailItem
Dim s_to As String
Dim s_Betreff As String
Dim s_Body As String
Dim s_x_headerline As String
Set o_outlook = New Outlook.Application
Set o_mail = o_outlook.CreateItem(olMailItem)
s_to = „[email protected]“
s_Betreff = „was auch immer“
s_Body = „Der Body was auch immer alles da stehen soll“
s_x_headerline = „X-MyProgramm: XXXXX“
o_mail.To = s_to
o_mail.Subject = s_Betreff
o_mail.Body = s_Body
'------------------------------------
'X-Headerzeile in das E-mail einfügen
'------------------------------------
'o_mail.??? = s_x_headerline
o_mail.Display
End Function
Public Function Test_Email_auslesen() As Long
Dim o_outlook As Outlook.Application
Dim o_mail As Outlook.MailItem
Dim o_Folder As Outlook.MAPIFolder
Dim o_Email As Outlook.MailItem
Dim i As Long
Dim y As Long
Dim s_to As String
Dim s_Betreff As String
Dim s_Body As String
Dim s_x_headerline As String
Set o_outlook = New Outlook.Application
Set o_mail = o_outlook.CreateItem(olMailItem)
For i = 1 To o_outlook.GetNamespace(„MAPI“).Folders.count
If InStr(1, o_outlook.GetNamespace(„MAPI“).Folders.Item(i).Name, „Postfach -“) > 0 Then
y = i
Exit For
End If
Next i
On Error Resume Next
Set o_Folder = o_outlook.GetNamespace(„MAPI“).Folders.Item(y).Folders(„Posteingang“)
For Each o_Email In o_Folder.Items
s_Body = o_Email.Body
s_Betreff = o_Email.Subject
'------------------------------------
'X-Headerzeile aus dem E-mail auslesen
'------------------------------------
's_x_headerline = o_Email.??? („X-MyProgramm“)
If s_x_headerline = „XXXXX“ Then
'weitere verarbeitung
End If
Next
End Function
Verwendet wird Outlook 2003 und VB 6.0 und die MSOUTL.OLB ist verlinkt. Weiters sollen nach Möglichkeit keinen zusätzlichen Libraries verwendet werden und wenn’s nicht anders geht dann sollen die zumindest nicht kostenpflichtig ein
Mit freundlichen Grüßen
Andreas
