Outlook Mail Fenster mittels VBS öffnen

06/02/2008 - 14:56 von Udo | Report spam
Hllo,

hat jemand eine Ahnung, wie man mittels VBS ein Outlook Mail Fenster öffnet
um darüber Mails zu verschicken?

Danke!
Gruß Udo
 

Lesen sie die antworten

#1 Matthias Günther
06/02/2008 - 15:45 | Warnen spam
"Udo" schrieb im Newsbeitrag
news:
Hllo,

hat jemand eine Ahnung, wie man mittels VBS ein Outlook Mail Fenster
öffnet
um darüber Mails zu verschicken?

Danke!
Gruß Udo




Da gibt's mehrere Möglichkeiten


1. Verwendung des Standard E-Mail Clients

Dim wsh

Set wsh = CreateObject("WScript.Shell")
wsh.Run "mailto:?subject=TestSubject&body=TestBody"
Set wsh = Nothing


2. Verwendung des Outlook-Objektmodells

Dim oApp, oMail, bOLStarted

On Error Resume Next
Set oApp = GetObject("","Outlook.Application")
If oApp Is Nothing Then
Set oApp = CreateObject("Outlook.Application")
bOLStarted = Not oApp Is Nothing
End If
Err.Clear

If Not oApp Is Nothing Then

On Error Resume Next
Set oMail = oApp.CreateItem(0)
Err.Clear

If Not oMail Is Nothing Then

oMail.To = ""
oMail.Subject = "TestSubject"
oMail.Body = "TestBody"
' oMail = ...
oMail.Display
Set oMail = Nothing

Else

MsgBox "Fehler beim Erstellen der Mail"

End If

If bOLStarted Then oApp.Quit

Set oApp = Nothing

Else

Msgbox "Fehler beim Ermitteln/Erstellen einer Outlook Instanz"

End If

Ähnliche fragen