Hallo,
ich habe ein Makro gebaut in dem ich per Klick auf einen Button in einer UserForm, eine Outlook-Vorlage öffne.
Ich kann bereit das "Von"-Feld und das "An"-Feld mit einer Variable füllen. Leider lassen sich keine weiteren Felder befüllen. Ich vermute es liegt daran, dass diese benutzerdefiniert sind.
Im Bsp möchte ich das Textfeld in der Outlookvorlage mit dem Namen "Bearbeiter" und dem Feld-Wert "Bearbeiter" befüllen:
Private Sub CommandButton1_Click() 'Anfrage
Dim OutLookJob As Object, mymail As Object
Set OutLookJob = CreateObject("Outlook.Application")
Set mymail = OutLookJob.CreateItemFromTemplate("C:\Users\Desktop\Beispiel.oft")
mymail.display
With mymail
.SentOnBehalfOfName = absender
.To = empfaenger
.Bearbeiter = "Maier" 'oder eben der Inhalt einer Variablen
End With
End Sub
Ich habe es auch schon mit UserProperties("Bearbeiter") versucht, leider ohne Erfolg.
Hat jemand eine Idee wie das funktionieren könnte?
|