Thema Datum  Von Nutzer Rating
Antwort
Rot Messagebox vor Abschicken einer Mail bei bestimmten Empfängern
 02.11.2020 08:13:01 Benny
Solved
02.11.2020 08:30:24 Mase
NotSolved
02.11.2020 08:52:24 Gast11819
Solved

Ansicht des Beitrags:
Von:
Benny		 Datum:
02.11.2020 08:13:01		 Views:
1273		 Rating:
     
Antwort:
 Nein
Thema:
Messagebox vor Abschicken einer Mail bei bestimmten Empfängern

Hallo Zusammen,

bereits vorneweg ich bin blutiger Anfänger was die VBA-Programmierung betrifft und hoffe dass Ihr mir bei dieser vermutlich sehr einfachen Frage weiterhelfen könnt, ohne mich komplett zu zerlegen. :) 

Ich möchte, dass eine MSG-Box erscheint, sobald eine bestimmte Mailadresse im An oder CC-Feld steht.

Habe ich soweit auch hinbekommen, nur stehe ich jetzt vor dem Problem, dass es nur funktioniert wenn exakt die Mailadresse und sonst nichts anderes in den Felder steht. Was muss ich machen, wenn weitere beliebige Adressen eingetragen wurden?

and/or "*@*"

Aktueller Code:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim vntTempTo   As Variant

vntTempTo = Split(Item.To, ";")

If Trim(Item.To) = "Max.Mustermann@web.de" Or Trim(Item.CC) = "Max.Mustermann@web.de" Then _
    If MsgBox("Max.Mustermann als Empfänger eingetragen" & vbCrLf & _
             "Nur für interne Kommunikation gedacht!" & vbCrLf & _
             "Trotzdem senden?", vbYesNo, "OM-Teampostfach") = vbNo Then _
             Cancel = True _
    Else: Cancel = False
    
End Sub

Danke!

Benny

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Messagebox vor Abschicken einer Mail bei bestimmten Empfängern
 02.11.2020 08:13:01 Benny
Solved
02.11.2020 08:30:24 Mase
NotSolved
02.11.2020 08:52:24 Gast11819
Solved