Mailversand mit Outlook aus Excel

[[e-mail]]

Ich versende mit CreateObject("Outlook.Application") Mails
aus Excel heraus. Das funktioniert aber nur, wenn Outlook
geöffnet ist. Was muss man tun, damit die Routine auch
dann funktioniert, wenn Outlook gerade nicht geöffnet ist?

Gruss
Hans Faber

[stefan onken]

hallo Hans,
bei mir (XP) wird so eine mail versendet, ohne dass
Outlook geöffnet ist:

Sub SendeMail()
Dim OLMail As Object, OLApp As Object
Set OLApp = CreateObject("Outlook.Application")
Set OLMail = OLApp.CreateItem(0)
With OLMail
.To = "***@web.de"
.Subject = "Testmail"
.Body = "Das ist ein Test."
.Send
End With
OLApp.Quit
Set OLMail = Nothing
Set OLApp = Nothing
End Sub

Gruß
stefan

-----Originalnachricht-----
Ich versende mit CreateObject("Outlook.Application")

Mails

aus Excel heraus. Das funktioniert aber nur, wenn

Outlook

geöffnet ist. Was muss man tun, damit die Routine auch
dann funktioniert, wenn Outlook gerade nicht geöffnet

ist?

Gruss
Hans Faber
.

[hans FAber]

Hallo Stefan,
vielen Dank für Deine Antwort zum Mailversand mit Outlook
aus Excel heraus. Deine Routine ist im Prinzip auch nicht
anders als meine und sie läuft bei mir auch auf den
gleichen Fehler auf.
Bei mir tritt, wenn Outlook nicht geöffnet ist,
ein "Interner Anwendungsfehler, Laufzeitfehler '-
2113732605" auf. Mit Debuggen lande ich dann in folgender
Zeile:
Set OLMail = OLApp.CreateItem(0)
Könnte das vielleicht an unserer Systemumgebung liegen:
WIN NT, Office 2000, Excel 2000, Outlook 2000.
Gruss, Hans

-----Originalnachricht-----
hallo Hans,
bei mir (XP) wird so eine mail versendet, ohne dass
Sub SendeMail()
Dim OLMail As Object, OLApp As Object
Set OLApp = CreateObject("Outlook.Application")
Set OLMail = OLApp.CreateItem(0)
With OLMail
..Subject = "Testmail"
..Body = "Das ist ein Test."
..Send
End With
OLApp.Quit
Set OLMail = Nothing
Set OLApp = Nothing
End Sub
Gruß
stefan

-----Originalnachricht-----
Ich versende mit CreateObject("Outlook.Application")

Mails

aus Excel heraus. Das funktioniert aber nur, wenn

Outlook

geöffnet ist. Was muss man tun, damit die Routine auch
dann funktioniert, wenn Outlook gerade nicht geöffnet

ist?

Gruss
Hans Faber
.

.

[stefan onken]

hallo Hans,
mit der Fehlermeldung kann ich leider auch nichts
anfangen. Per google habe ich nur einen Beitrag gefunden,
dabei war das Problem nur an dem einen Rechner.
http://tinyurl.com/uza4
Vielleicht hilft die OL-NG weiter.

Probier doch auch mal ActiveWorkBook.SendMail oder setze
im VBA-Editor/Extras/Verweise einen Verweis auf MS
Outlook-Bibliothek. Der Code muß dann etwas anders
aussehen, hier ein Bsp:
http://tinyurl.com/uz9s

Gruß
stefan

-----Originalnachricht-----
Hallo Stefan,
vielen Dank für Deine Antwort zum Mailversand mit

Outlook

aus Excel heraus. Deine Routine ist im Prinzip auch

nicht

anders als meine und sie läuft bei mir auch auf den
gleichen Fehler auf.
Bei mir tritt, wenn Outlook nicht geöffnet ist,
ein "Interner Anwendungsfehler, Laufzeitfehler '-
2113732605" auf. Mit Debuggen lande ich dann in

folgender

Set OLMail = OLApp.CreateItem(0)
WIN NT, Office 2000, Excel 2000, Outlook 2000.
Gruss, Hans

-----Originalnachricht-----
hallo Hans,
bei mir (XP) wird so eine mail versendet, ohne dass
Sub SendeMail()
Dim OLMail As Object, OLApp As Object
Set OLApp = CreateObject("Outlook.Application")
Set OLMail = OLApp.CreateItem(0)
With OLMail
..Subject = "Testmail"
..Body = "Das ist ein Test."
..Send
End With
OLApp.Quit
Set OLMail = Nothing
Set OLApp = Nothing
End Sub
Gruß
stefan

-----Originalnachricht-----
Ich versende mit CreateObject("Outlook.Application")

Mails

aus Excel heraus. Das funktioniert aber nur, wenn

Outlook

geöffnet ist. Was muss man tun, damit die Routine auch
dann funktioniert, wenn Outlook gerade nicht geöffnet

ist?

Gruss
Hans Faber
.

.

.