kann mir wer sagen warum das nicht geht
12.08.2004 12:07:18
georg
Sub senden()
' Outlook Applikation
Dim oMail As Outlook.MailItem
' Verweis zu Outlook + neue Nachricht
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(olMailItem)
' Betreff-Zeile
oMail.Subject = "Stand : " & _
Format(Date, "Long Date") & " !
' An-Zeile (Empfänger)
oMail.To = "meine email.de"
oMail.Recipients.ResolveAll
oMail.Display
' Daten
oMail.Body = "A1" & vbLf & vbLf & _
" anbei Daten: " & Cells(1, 3).Value
' Speicher freigeben
Set ool = Nothing
Set oInspector = Nothing
Set oMail = Nothing
End Sub
xxxxxxxxxxxxxxxxx