|
Hallo,
ich hab hier einen kurzen Code gefunden, aber ich schaffe es einfach nicht ihn umzuschreiben. Ich bekomme Emails und würde gerne eine automatische Antwort senden. Aber an eine Adresse die in einer Tabelle in der Email ist. Dieser Code hier funktioniert gut für normalen Text, aber für Tabellen geht das leider nicht. Hat jemand eine Idee? - Vielen Dank!!
Option Explicit
Sub SendAutoReply(olItem As MailItem)
Dim vText As Variant
Dim sText As String
Dim sAddr As String
Dim vItem As Variant
Dim i As Long
Dim olOutMail As MailItem
Const strTemplate As String = "C:\Users\HH166\Desktop\2H\Automatic Response\autoreply.oft" 'Your autoreply template
'Process the message
With olItem
sText = olItem.Body
vText = Split(sText, Chr(13))
'Check each line of text in the message body
For i = UBound(vText) To 0 Step -1
If InStr(1, vText(i), "E-Mail") > 0 Then
vItem = Split(vText(i), Chr(58))
sAddr = Trim(vItem(1))
Set olOutMail = CreateItemFromTemplate(strTemplate)
With olOutMail
.To = sAddr
.Display '(change to .Send after testing)
End With
Exit For
End If
Next i
End With
lbl_Exit:
Set olOutMail = Nothing
Exit Sub
End Sub
Sub TestMacro()
Dim olMsg As MailItem
On Error Resume Next
Set olMsg = ActiveExplorer.Selection.Item(1)
SendAutoReply olMsg
lbl_Exit:
Exit Sub
End Sub
Sub Auto()
End Sub
|