Outlook Fenster öffnen

06/02/2008 - 14:54 von Udo | Report spam
Hallo,

kennt jemand die Syntax, wie man ein Outlook Mailfenster mittels script
öffnet?

Outlook öffnen geht ganz einfach:

'Open To Your Inbox
strSource = "C:\Programme\Microsoft Office\OFFICE11\Outlook.Exe"
strCommand = " /Select Outlook:Tasks"
Set objShell = CreateObject("Wscript.Shell")
objCommand = Chr(34) & strSource & Chr(34) & strCommand
objShell.Run(objCommand)

aber wie öffnet man ein Mailfenster?

Gruß Udo
 

Lesen sie die antworten

#1 W. Wolf
06/02/2008 - 16:14 | Warnen spam
Hallo Udo,
"Udo" schrieb


kennt jemand die Syntax, wie man ein Outlook Mailfenster mittels script
öffnet?

Outlook öffnen geht ganz einfach:

'Open To Your Inbox
strSource = "C:\Programme\Microsoft Office\OFFICE11\Outlook.Exe"
strCommand = " /Select Outlook:Tasks"
Set objShell = CreateObject("Wscript.Shell")
objCommand = Chr(34) & strSource & Chr(34) & strCommand
objShell.Run(objCommand)




warum denn so aufwendig?
Verwende einfach:

Declare Function ShellExecuteA Lib "shell32.dll" (ByVal Hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

l& = ShellExecuteA(0&, "open", mailto:, vbNullString, vbNullString, windowStyle)

das öffnet Dir dein Standard-Mailprogramm inkl. Mailfenster
und tràgt sogar die Ziel-Adresse ein.

Wenn Du allerdings auf Outlook bestehst, wird es etwas aufwendiger:

'erstelle ein Outlook-Objekt per:
Set OlAppOb = GetObject("Outlook.application")
'bzw.
CreateObject("Outlook.application")
'danach ein neues Item-Objekt:
Set OlItem = OlAppOb.CreateItem(0)
'dem Du diverse Sachen übergeben kannst:
OlItem.To = "mailto:"
OlItem.Subject = "Grüß Gott"
OlItem.Body = "Lieber Freund..."
OlItem.Save 'speichern
OlItem.Display 'und ggf. anzeigen
'usw.


Gruß
W. Wolf

Ähnliche fragen