Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook Betreff hinzufügen VBA
08.02.2018 12:40:02 schwarz
NotSolved
20.02.2018 19:13:58 Ben
NotSolved
21.02.2018 09:42:34 Gast49024
NotSolved
21.02.2018 11:08:20 RPP63
NotSolved
01.03.2018 09:01:34 Gast42456
NotSolved

Ansicht des Beitrags:
Von:
schwarz
Datum:
08.02.2018 12:40:02
Views:
142
Rating: Antwort:
  Ja
Thema:
Outlook Betreff hinzufügen VBA

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook Betreff hinzufügen VBA
08.02.2018 12:40:02 schwarz
NotSolved
20.02.2018 19:13:58 Ben
NotSolved
21.02.2018 09:42:34 Gast49024
NotSolved
21.02.2018 11:08:20 RPP63
NotSolved
01.03.2018 09:01:34 Gast42456
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar