Mit Access Emails versenden

[jaquline]

Hallo!
Wie schon in der Überschrift benannt, hab ich Probleme beim versenden von
Emails aus Access 2003.
Der Vorgang ansicht funktioniert reibungslos, nur bekomme ich nicht hin,
eine Outlook Vorlage (*.oft) zu öffnen und die zu verschicken.

Hier mein Quellcode:

rivate Sub Befehl0_Click()

Dim olApp As Outlook.Application
Dim oItem As Outlook.MailItem

Set olApp = New Outlook.Application
Set oItem = olApp.CreateItem(olMailItem)

With oItem
.To = "chris.berger@alsecco.com"
.Subject = "Anfrage Lieferant"
.HTMLBody = "Hier kann man dann HTML Quellcode schreiben"
.Display
End With

End Sub

vlg Jaquline


Wenn jemand weiß wie es geht, wäre ich sehr dankbar. Da ich mir bis nächste
Woche ne Lösung einfallen lassen muss.


Betriebsystem: Windows XP SP2 Pro
Office 2003 Pro Edition

 

[jaquline]

Hab die Lösung gefunden.
Für die die es Interressiert:

Private Sub Befehl2_Click()
Dim olApp As Outlook.Application
Dim oItem As Outlook.MailItem

Set olApp = New Outlook.Application
'Vorlage verwenden
Set oItem = olApp.CreateItemFromTemplate("C:\AnfrageAD.oft")
'Neue Email erstellen
'Set oItem = olApp.CreateItem(olMailItem)

With oItem
.To = "xxx.xxx@xxx.com"
.Subject = "Anfrage Außendienst"
.Display
End With

vlg Jaquline