Email aus Excel mit bestimmten Outlookformular
23.01.2010 19:34:38
Ewald Sadowski
Hallo
habe mal wieder eine Aufgabe aber keine Lösung (um nicht von Problem zu sprechen)
In einem Makro habe ich folgende Anweisung, das Outlook ein bestimmtes Formular öffnet.
Sub Emails_mit_Formular()
Dim OutLookJob As Object, mymail As Object
Set OutLookJob = CreateObject("Outlook.Application")
Set mymail = OutLookJob.CreateItemFromTemplate("D:\Provorlage.oft") '*.Msg, *Oft
With mymail
.To = ActiveCell.Hyperlinks(1).Address
'.Subject = "Dies ist deine Betreffzeile!"
.display
End With
End Sub
das klappt auch, bis auf zwei Sachen
1. Bei .To = ActiveCell.Hyperlinks(1).Address bekomme ich immer das "mailto" vor der Adresse und damit ist diese ja falsch. Wie bekomme ich dies weg??
2. Kann man Set mymail = OutLookJob.CreateItemFromTemplate("D:\Provorlage.oft") generell für eine Arbeitsmappe setzen??
Dann bräuchte ich das Makro nicht und bei Klick auf eine Emailadresse würde das entsprechende formular angezeigt-
Gruß Ewald