Hallo zusammen,

ich habe schon häufig von euren Lösungen profitieren dürfen. Besten Dank dafür.
Nun habe ich aber ein Problem, dass ich bis jetzt nicht lösen kann. Dazu habe ich hier auch noch nichts gefunden.

ich möchte ein Termin-Formular mit einem anderem als mein Standart Postfach unter VBA versenden. Wie kann ich das ändern?
Ein Teil Meines Codes sieht so aus:

UserForm1.Show
'Bei Abbruch auf der UserForm wird das Skript verlassen
    If Abbruch = True Then
        MsgBox ("Abbruch durch User")
        Exit Sub
    End If
   
    'Wochentag definieren
    tag = Format(datum, "dddd")
   
If MailVorber = False Then GoTo Marke

Set outlook = CreateObject("Outlook.Application")
'hier den eigenen pfad reinpacken, dateiname endet mit .oft
   
For I = 1 To 3
    Set neueNachricht = outlook.CreateItemFromTemplate(pfad(I))
    'alten Betreff und Text auslesen - ggf. zugriff erlauben
    betreff = neueNachricht.Subject
    text = neueNachricht.Body
    'Betreff um Datum ergänzen
    betreff = Format(datum, "yyyymmdd") & " - " & betreff
    neueNachricht.Subject = betreff
    'das erste Verzeichnis verweist auf die Terminvorlage, Verzeichnis 2 & 3 auf Mails, Verzeichnis 4 auf eine Worddatei
    If I = 3 Then
        'Termin ändern
        With neueNachricht
        .Start = Format(datum, "dd.mm.yyyy") & " " & zeit 'Format(zeit, "hh:mm")
        .Location = ort
        .Duration = dauer
        End With
    Else
        ' Text ändern und ersetzen
        Select Case neueNachricht.BodyFormat
             
            Case 1 'nur Text
                text = neueNachricht.Body
                text = Replace(text, "<Tag>", tag)
                text = Replace(text, "<Datum>", datum)
                text = Replace(text, "<Uhrzeit>", zeit)
                text = Replace(text, "<Ort>", ort)
                neueNachricht.Body = text
                 
            Case 2 'htmlMail mit Tabellen
                text = neueNachricht.HTMLBody
                text = Replace(text, "&lt;Tag&gt;", tag)
                text = Replace(text, "&lt;Datum&gt;", datum)
                text = Replace(text, "&lt;Uhrzeit&gt;", zeit)
                text = Replace(text, "&lt;Ort&gt;", ort)
                neueNachricht.HTMLBody = text
         
            Case Else 'falls ein Fehler kam, RichText wäre 3 und unspecified die 0
             
        End Select
    End If
         
    neueNachricht.Display '
    Set neueNachricht = Nothing
Next I

ich öffne erst zwei Mail-Formulare und anschließend das Termin-Formular (pfad(3)). Bei allen wird immer das Standard Postfach als Absender genutzt. Das möchte ich nicht sondern möchte ein anderes Postfach auswählen.

Ich bin um jede Hilfe dankbar.

Gruß,
Tias