- This topic has 1 Antwort, 2 Stimmen, and was last updated 09:19 um 15. Dezember 2008 by MichaelBauer.
2 Antworten anzeigen - 1 bis 2 (von insgesamt 2)
2 Antworten anzeigen - 1 bis 2 (von insgesamt 2)
Home-›Foren-›Outlook-›Outlook VBA-›Betreff in Outlook automatisch ändern – VBA
Hallo,
ich möchte bei Emails an bestimmte Empfänger automatisch den Betreff ergänzen lassen. Dabei soll als Kriterium einfach nur die Domain ausreichen (also der Teil nach dem @).
Folgenden Code hab ich mir zusammengebastelt:
[code]
Dim objMail As MailItem, strTo As String
On Error Resume Next
If Item.Class = olMail Then
Set objMail = Item
With objMail
If InStr(LCase$(.To), \“DOMAIN.com\“) <> 0 Then
.Subject = \“ZUSATZ \“ & objMail.Subject
.Save
End If
End With
End If
[/code]
Ich vermute mal, dass der Teil, wo ich die Domain abfragen möchte, so nicht funktioniert, oder?
[code]
If InStr(LCase$(.To), \“DOMAIN.com\“) <> 0
[/code]
Hallo,
das kann funktionieren, muss aber nicht. In To steht der DisplayName des Empfängers, das kann eine E-Mail-Adresse oder auch ein Name wie \“Michael Bauer\“ sein. Die Adressen aller Empfänger stehen in der Recipients-Collection. Um sicherzugehen, solltest Du die prüfen.
Viele Grüße
Michael Bauer
Abonnieren Sie den 14-tägig erscheinenden Newsletter von Mailhilfe.de kostenlos.
Der ständig aktuelle Tipps zu Thema Email für Sie bereithält!
Wie z.B. Outlook, GMail, Thunderbird oder auch KuNoMail, usw.
Ihre E-Mail Adresse: