Microsoft Excel

Herbers Excel/VBA-Archiv

Mail ist leer ??? bitte hilfe

Betrifft: Mail ist leer ??? bitte hilfe von: Schorsch
Geschrieben am: 13.08.2004 13:43:13

bitte kann mir wer helfen ???

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
  


Betrifft: AW: Mail ist leer ??? bitte hilfe von: Hans W. Herber
Geschrieben am: 14.08.2004 04:18:19

... auf eine gleichlautende Frage hatte ich Dir am 13.08. geantwortet, ohne dass Deinerseite eine Reaktion erfolgte. Es ist nicht allzu sinnvoll, einen neuen Thread zu beginnen, ohne den alten fortzusetzen.

Gruss hans