Microsoft Excel

Herbers Excel/VBA-Archiv

formular versenden immer leer ???

Betrifft: formular versenden immer leer ??? von: Georg
Geschrieben am: 12.08.2004 14:25:57

Kann mir wer bitte helfen das senden funktioniert aber das mail ist leer ???

möchte es gerne tabelle1 aber nich als anhang senden ????

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 = "e-mail@mich.de"
oMail.Recipients.ResolveAll
oMail.Display
'zu versendende geöffnete Mappe
strSend = "Mappe1.xls"

' Speicher freigeben
Set oMail = Nothing
Set ool = Nothing

End Sub

  


Betrifft: AW: formular versenden immer leer ??? von: Hans W. Herber
Geschrieben am: 13.08.2004 07:11:44

Hallo Georg,

die ultimative Seite für Email-Versand mittels VBA:
http://www.rondebruin.nl/sendmail.htm

Dein Problem wird hier behandelt:
Send a range in the body with Outlook Express
Beachte bitte, das die SendKeys-Sequenz für die deutsche Version angepasst werden muss

Gruss hans


 

Beiträge aus den Excel-Beispielen zum Thema "formular versenden immer leer ???"