Hallo zusammen,
ich würde gerne über eine Outlook- Makro eine Mail weiterleiten. Besitzt die Adresse im Body- Feld jedoch keinen Inhalt soll eine andere Zieladresse verwendet werden.
Die Weiterleitung an sich funktioniert.
Nur die Abfrage auf den Inhalt der Mail nicht.
So habe ich mir das vorgestellt:
Sub Weiterleiten_MAIL_WEITERLEITEN()
Dim MyItem As Outlook.MailItem
Dim obj_curitem As MailItem
Dim obj_newitem
Dim obj_Selection
Dim obj_curfolder
Dim obj_msgitems
Dim obj_mailstatus
Dim Forward As Object
If Err.Number = 0 Then
'Der selection die aktuelle Mailauswahl zuweisen
Set obj_Selection = Outlook.ActiveExplorer.Selection
'Wenn es eine markierte Mail gibt
If obj_Selection.Count > 0 Then
'Alle markierten Mails durchlaufen
For Each obj_curitem In obj_Selection
strID = obj_curitem.EntryID
Set olNS = Application.GetNamespace(„MAPI“)
'HIER SOLL GEPRÜFT WERDEN OB DIE MAIL EINEN EINTRAG IM BODY HAT
'1. Versuch:
'If obj_curitem.Body vbNullString Then
obj_mailstatus = 1
Else
obj_mailstatus = 0
End If
'2. Versuch:
'If obj_curitem.Body = „“ Then
'obj_mailstatus = 1
'Else
'obj_mailstatus = 0
'End If
'Object auf einem neuen Item erstellen
Set obj_newitem = obj_curitem.Forward
With obj_curitem.Forward
.Forward = True
'.SentOnBehalfOfName = „Absender“
'If obj_curitem.Attachments.Count > 0 And obj_curitem.Body = „“ Then
'If obj_curitem.Attachments.Count > 0 Then
'If obj_curitem.Body = „“ Then
'HIER WIRD DIE MAILADRESSE GEWAEHLT
'1 FUER BODY LEER
If obj_mailstatus = 1 Then
.To = „[email protected]“
Else
.To = „[email protected]“
End If
.Subject = „BETREFFZEILE“
.Display
End With
Next
End If
End If
End Sub
Kann mir bitte jemand weiterhelfen?
Danke für Eure Hilfe schon Mal im voraus!
Gruß,
Alex