Borwinius Wissensdatenbank outlook
http://borwinius.de/wiki/
2026-04-28T12:03:43+00:00Borwinius Wissensdatenbank
http://borwinius.de/wiki/
http://borwinius.de/wiki/lib/tpl/drupal_garland_blue/images/favicon.icotext/html2023-12-10T18:25:09+00:00Anonymous (anonymous@undisclosed.example.com)outlook:outlookvbs
http://borwinius.de/wiki/doku.php?id=outlook:outlookvbs&rev=1702229109&do=diff
Outlookmakros und -skripte
'durchsuche zu sendende Mails nach den Schlüsselwörtern und warne vor dem absenden, wenn vorhanden aber kein Anhang ausgewählt
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long
Dim findArr As Variant
'hier die Suchbegriffe eingeben:
findArr = Split("attach,anhang,anbei,datei,file,xlsx,docx", ",")
On Error GoTo handleError
For i = 0 To UBound(findArr)
iIndex = InStr(UCase(Item.B…