|
Hallo zusammen,
habe foglendes VBA Script im Internet gefunden um beim senden einer email an eine bestimmte email Domäne (hier @hotmail.com) im Outlook dem Betreff ein Wort hinzuzufügen [Wichtig] kann:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMail As MailItem, strSubj As String
Dim I&, tmp As Variant, blnHasDate As Boolean
On Error Resume Next
If Item.Class = olMail Then 'Ist eine Nachricht...
Set objMail = Item
With objMail
If InStr(LCase$(.To), "@hotmail.com") _
<> 0 Then 'Betreff ggf. anpassen
tmp = Split(.Subject, " ")
For I = 0 To UBound(tmp)
While Right(tmp(I), 1) = "."
tmp(I) = Left(tmp(I), Len(tmp(I)) - 1)
Wend
If IsDate(tmp(I)) Then
blnHasDate = True
Exit For
End If
Next I
If Not blnHasDate Then 'Datum hinzufügen
For I = 0 To UBound(tmp)
strSubj = strSubj & tmp(I) & " "
Next I
.Subject = strSubj & "[Wichtig]"
.Save
End If
End If
End With 'objMail
End If
End Sub
Das VBA Script habe ich ein wenig verändert (war ursprünglich für das hinzufügen eines Datums gedacht).
Das funktioniert ja soweit. (kenn micht nicht gut mit VBA aus...
Ich würde nur noch eine Änderung benötigen damit ich noch für fünf weiter andere Domänen (z.B. @web.de usw ) jeweils ein anderes Wort hinzufügen kann.
@hotmail.com Wort: [Wichtig]
@web.de Wort: [Wichtig1]
@hotmail.de Wort: [Wichtig2]
@msn.de Wort: [Wichtig3]
....
Hat jemand eine Ahnung wie das geht?
Danke
Bernhard
|