Mail ist leer ? bitte hilfe
13.08.2004 13:43:13
Schorsch
Möchte mein formular an eine bestimmte mail versenden (nicht als anhang)
habe etwas zusammen gebastelt aber es funktioniert nicht richtig
outlook wird geöffnet richtige add, richtiger betreff,
aber das mail ist leer und auf senden muss ich auch noch drücken
bin anfänger mit vba was muss ich da noch ändern ?
Sub senden()
' Outlook Applikation
Dim oMail As Object
Dim ool As Object
' Verweis zu Outlook + neue Nachricht
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(olMailItem)
' Betreff-Zeile
oMail.Subject = Range("A1") & _
Format(Date, "Long Date") & " !"
' An-Zeile (Empfänger)
oMail.To = "mailadd@adress.de"
oMail.Recipients.ResolveAll
oMail.Display
'zu versendende geöffnete Mappe
strSend = "tabelle1.xls"
' Speicher freigeben
Set oMail = Nothing
Set ool = Nothing
End Sub
danke für eure hilfe im voraus !!!
gruss schorsch