VBA. benutzerdefiniertes Formular mit Knopf ausstatten, der eine OFT-Vorlage auf dem Filesystem öffnet
Hallo,
ich habe in Outlook 2002 ein benutzerdefiniertes Formular erstellt. In dem soll jetzt noch ein Knopf eingebaut werden, der folgendes kann:
man tippt in ein Feld "E-mail Adresse" die Mailadresse des Kontaktes ein. Dahinter gibt es eine Schaltfläche und wenn ich auf die drücke, soll ein Mailformular aufgehen ausgefüllt mit der eingegebenen Mailadresse, ABER nicht basierend auf der normalen Mailvorlage, sondern auf einer OFT-Mailvorlage, die irgendwo auf dem Nrtzwerk liegt. Ich hab mir Code aus dem Internet gesammelt (siehe unten), aber ich schaffe es nicht die Mailvorlage ZUSAMMEN MIT der ausgefüllten Mailadresse zu holen. So wie es da jetzt steht macht er zwar brav die Mailvorlage auf, aber ohne Mailadresse:
Sub Mail_Click
dim objKontakt
dim mi
Set mi=Application.CreateItem(olMailItem)
Set objKontakt=Application.ActiveInspector.CurrentItem
Mailadresse = objkontakt.Email1Address
Set Outlook = CreateObject("Outlook.Application")
Set newItem = Outlook.CreateItemFromTemplate("x:\vorlage.oft")
mi.Recipients.Add objKontakt.Email1Address
newItem.display
Set objKontakt=nothing
Set mi=nothing
End Sub
P.S. In "Email1Address" steht die eingegebene Mailadresse
ich habe in Outlook 2002 ein benutzerdefiniertes Formular erstellt. In dem soll jetzt noch ein Knopf eingebaut werden, der folgendes kann:
man tippt in ein Feld "E-mail Adresse" die Mailadresse des Kontaktes ein. Dahinter gibt es eine Schaltfläche und wenn ich auf die drücke, soll ein Mailformular aufgehen ausgefüllt mit der eingegebenen Mailadresse, ABER nicht basierend auf der normalen Mailvorlage, sondern auf einer OFT-Mailvorlage, die irgendwo auf dem Nrtzwerk liegt. Ich hab mir Code aus dem Internet gesammelt (siehe unten), aber ich schaffe es nicht die Mailvorlage ZUSAMMEN MIT der ausgefüllten Mailadresse zu holen. So wie es da jetzt steht macht er zwar brav die Mailvorlage auf, aber ohne Mailadresse:
Sub Mail_Click
dim objKontakt
dim mi
Set mi=Application.CreateItem(olMailItem)
Set objKontakt=Application.ActiveInspector.CurrentItem
Mailadresse = objkontakt.Email1Address
Set Outlook = CreateObject("Outlook.Application")
Set newItem = Outlook.CreateItemFromTemplate("x:\vorlage.oft")
mi.Recipients.Add objKontakt.Email1Address
newItem.display
Set objKontakt=nothing
Set mi=nothing
End Sub
P.S. In "Email1Address" steht die eingegebene Mailadresse
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 156183
Url: https://administrator.de/contentid/156183
Ausgedruckt am: 19.11.2024 um 15:11 Uhr
1 Kommentar