Absender abhängig von Betreff setzten (VBA)

elesge, Dienstag, 19.05.2020, 07:06 (vor 17 Tagen) @ Martin Asal

Guten Morgen Martin,

vielen Dank für die Antwort! Das ganze müsste dann entsprechend so aussehen?!

Public Sub OutlookNeueMail(ByVal Empfänger As String, Betreff As String, Optional Inhalt As String, Optional Cc As String = "", _
                           Optional Versender As String = "", Optional Antwortadresse As String = "", Optional alsHTML As Boolean = False, _
                           Optional istModal As Boolean = False, Optional MitStdSignatur As Boolean = False, Optional AnhangURIs As String = "")
    ' Erstellt eine E-Mail und zeigt diese in Outlook an.
    ' MitStdSignatur benötigt Mitwirkung des Benutzers (Sicherheitsabfrage) und setzt voraus, dass neue Nachrichten eine Signatur haben.

     On Error GoTo OutlookNeueMail_Error
 
     Dim OlApp As Object
     Set OlApp = CreateObject("Outlook.Application")
     Dim mail As Object
     Set mail = OlApp.CreateItem(0)     ' olMailItem=0

 
If mail.Subject = "Rechnung" Then
      mail.SentOnBehalfOfName = "rechnung@xxx"
End If
 
 
  mail.Display (istModal)            ' True=Behält den Fokus bis zum Schliessen.

Ausgang:
Set mail = Nothing
Set OlApp = Nothing
Exit Sub
 
OutlookNeueMail_Error:
MsgBox "Fehler beim Erstellen einer neuen E-Mail mit Outlook:" & vbCrLf _
            & Err.Description & vbCrLf _
            & "Zeile " & Erl() & " in Sub OutlookNeueMail()"
Resume Ausgang
End Sub

Wenn ich diesen Code ausführe und eine Email mit dem Betreff "Rechnung" geöffnet habe, passiert überhaupt nichts.

Auch wenn nicht der Messias, vielen Dank nochmals und vielleicht fällt dir noch etwas dazu ein oder auf :-)

elesge


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum