Herbers Excel/VBA-Archiv
formular versenden immer leer ???
- formular versenden immer leer ??? von Georg vom 12.08.2004 14:25:57
- AW: formular versenden immer leer ??? - von Hans W. Herber am 13.08.2004 07:11:44
 |
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
| |