Thema Datum  Von Nutzer Rating
Antwort
08.02.2018 12:40:02 schwarz
NotSolved
Blau Outlook Betreff hinzufügen VBA
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:
Ben
Datum:
20.02.2018 19:13:58
Views:
667
Rating: Antwort:
  Ja
Thema:
Outlook Betreff hinzufügen VBA

Hallo,

wenn man einen Teil der Befehle, die wiederholt ausgeführt werden sollen in eine eigene Sub auslagert, kan man die zu suchenden und anzuhängenden Inhalte gut als Parameter übergeben.

Da der erste Parameter als byRef Parameter angegeben wurde, bleiben alle Änderungen in der Sub auch nach dem Durchlaufen erhalten.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim objMail As MailItem
  
  On Error Resume Next
  If Item.Class = olMail Then 'Ist eine Nachricht...
    Set objMail = Item
	
	' @hotmail.com
	ReplaceWords(objMail, "@hotmail.com", "[Wichtig]")
	
	' @web.de
	ReplaceWords(objMail, "@web.de", "[Wichtig1]")
	
	' @hotmail.de
	ReplaceWords(objMail, "@hotmail.de", "[Wichtig2]")
	
	' @msn.de
	ReplaceWords(objMail, "@msn.de", "[Wichtig3]")
  End If
End Sub

Private Sub ReplaceWords(ByRef objMail As MailItem, ByVal SearchText As String, ByVal AttachText As String)
	Dim strSubj As String
	Dim I&, tmp As Variant, blnHasDate As Boolean
	On Error Resume Next
    With objMail
      If InStr(LCase$(.to), SearchText) _
      <> 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 & AttachText
          .Save
        End If
      End If
    End With
End Sub

Die VBA-Funktion wurde nicht getestet, sollte aber so funktionieren, da lediglich die festen Suchbegriffe gegen Parameter ausgetauschr wurden.

LG, Ben


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
08.02.2018 12:40:02 schwarz
NotSolved
Blau Outlook Betreff hinzufügen VBA
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