Hallo,
ich prüfe aktuell nur den Betreff, aber ich denke, das man das ggf. auch ändern kann.
Hier mal ein Auszug aus meinem Beispiel. Vielleicht hilf es dir ja weiter.
Code
sub Initialize(oInfoCenter, key)
'Abfrage beim betätigen des Senden-Buttons
oInfoCenter.RegisterEvent "MessageEditor/OnSend", key, "OnEditorSend"
end sub
function OnEditorSend(oInfoCenter, oEditor)
Dim MyDomains(1) 'Anzahl der eigenen Domains
MyDomains(0) = "firma.de"
MyDomains(1) = "firma.com"
Set oItem = oEditor.Item
'An
If Not oItem.Recipients.Count = 0 Then 'oder oItem.CC bzw. oItem.BCC.Count
Set oRecipients = oItem.Recipients
For Each oRecipient In oRecipients
If strRecipient <> "" Then
strRecipient = strRecipient + ";"
End If
strRecipient = strRecipient + oRecipient.EMail
Next
end if
'Suche in strRecipient, ob nach @-Zeichen eine andere Domain , als die eigene (MyDomains) enthalten ist
if foundexternal then
if oItem.Subject <> "Firmenname" then
'...do Something
'z.B.:oItem.Subject = "Firmenname" & " " & oItem.Subject
'oInfoCenter.MsgBox "Bitte fügen Sie den Firmennamen ein"
OnEditorSend = false 'Mail nicht senden
else
OnEditorSend = true 'Mail senden
end if
else
OnEditorSend = true 'Mail senden
end if
end function
Alles anzeigen
Gruß
Baumi