hallodri69
Goto Top

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

Content-Key: 156183

Url: https://administrator.de/contentid/156183

Printed on: April 19, 2024 at 16:04 o'clock

Member: hallodri69
hallodri69 Dec 02, 2010 at 12:17:40 (UTC)
Goto Top
Hab's selber gelöst! face-smile

Set Outlook = CreateObject("Outlook.Application")
Set newItem = Outlook.CreateItemFromTemplate("x:\vorlage.oft")
newItem.Recipients.Add objKontakt.Email1Address
newItem.display