Microsoft Excel

Herbers Excel/VBA-Archiv

kann mir wer sagen warum das nicht geht

Betrifft: kann mir wer sagen warum das nicht geht von: georg
Geschrieben am: 12.08.2004 12:07:18

xxxxxxxxxxxxxxxxxxx

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
  


Betrifft: AW: kann mir wer sagen warum das nicht geht von: Andreas Walter
Geschrieben am: 12.08.2004 12:17:55

Die Aussage
"nicht geht"
gehört erweitert. Gibt es eine Fehlermeldung? Explodiert der PC?


  


Betrifft: AW: kann mir wer sagen warum das nicht geht von: georg
Geschrieben am: 12.08.2004 12:30:58

hallo danke erstmal für deine antwort

fehler beim komplimieren benutzerdefinierder ty nich definiert
habe das selbst geschrieben und kenn mich in vba noch nicht so gut aus

es sollte ein makro sein das mir das formular an eine e-mail schickt


  


Betrifft: AW: kann mir wer sagen warum das nicht geht von: Ulf
Geschrieben am: 12.08.2004 12:43:52

Setzt mal einen Verweis auf Outlook.

Ulf


  


Betrifft: AW: kann mir wer sagen warum das nicht geht von: Bert
Geschrieben am: 12.08.2004 12:52:34

Du solltest dir angewöhnen, Option explicit zu verwenden, dann merkst du sofort, wenn etwas mit den variablen nicht stimmt. Wenn du keinen Verweis auf Outlook setzt, darfst
du auch keine benannten Argumente verwenden.

Option Explicit
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 = "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 oMail = Nothing
Set ool = Nothing
End Sub



Gruß Bert


  


Betrifft: AW: kann mir wer sagen warum das nicht geht von: georg
Geschrieben am: 12.08.2004 13:10:18

danke bert so funktioniert es
aber ich hätte es gerne nicht als anhang gesendet und gleich gesendet ohne outlook
geht das überhaupt???