Per VBA zitierten text aus item.body löschen

Moderator: ModerationP

Per VBA zitierten text aus item.body löschen

Beitragvon jackthebender » 19. Jun 2019, 10:28

Hallo

ich nutze ein Makro das automatisch überprüft ob ein Anhang dran ist und dann meckert wenn dem nicht so ist dieser aber im Text erwähnt wird.


Code: Alles auswählen
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex(10) As Long
Dim SumiIndex As Long


On Error GoTo handleError



iIndex(1) = InStr(Item.Body, "Anhänge")
iIndex(2) = InStr(Item.Body, "Anhang")
iIndex(3) = InStr(Item.Body, "Anlage")
iIndex(4) = InStr(Item.Body, "anhängend")
iIndex(5) = InStr(Item.Body, "Datei")
iIndex(6) = InStr(Item.Body, "beigefügt")
iIndex(7) = InStr(Item.Body, "anbei")
iIndex(8) = InStr(Item.Body, "attach")
iIndex(9) = InStr(Item.Body, "attachment")

SumiIndex = 0
For i = 1 To 9
SumiIndex = SumiIndex + iIndex(i)
Next

If SumiIndex > 0 And Item.Attachments.Count = 0 Then

retMB = MsgBox("Da fehlt wahrscheinlich schon wieder ein Anhang... :-( " & vbCrLf & vbCrLf & "Trotzdem rausschicken?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If retMB = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
End If

End Sub



wenn ich jetzt allerdings auf eine mail antworte die irgendwann mal einen Anhang erwähnt hat meckert das makro auch noch.
deswegen würde ich gerne aus dem item.body alle zitierten mail ausschneiden.

Gruß Jack
Office 2016
jackthebender
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 17
Registriert: 15. Jun 2011, 15:38

Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste