Outlook Express statt Outlook mit Code ansprechen?

Hallo,
zum automatsichen Versand von E-Mails mit Outlook aus Excel heraus habe ich folgenden Code:


Sub sende_stoermeldung(mld As String)
Dim MyMessage As Object, MyOutApp As Object
'InitializeOutlook = True
Set MyOutApp = CreateObject("Outlook.Application")
'Nachrichtenobject erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "jemand@domain.de"   'E-Mail
.CC = "handynummer@domain.de"       'Handynummer
.Subject = "Störmeldung:     " & mld & "     " & Date & " " & Time 'Leerzeichen bitte  _
belassen
'Hier wird die Mail nochmals angezeigt
.Display
.Send
SendKeys "%S"
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub

Jetzt ist es so, dass auf dem Rechner der dies ausführen soll nur Outlook Express zur Verfügung steht.
Was müsste man dafür (falls möglich) modifizieren?
Ich kann aufgrund meiner "nicht vorhandenen" Kenntnisse dies leider nicht selbst erstellen.
Danke im Vorraus für eure Hilfe.
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Das sollte Outlook unabhängig sein.
Probiers mal aus

Option Explicit

'------------------------
'Gehört alles in ein Modul

Private Declare Function ShellExecute Lib "Shell32.dll" _
    Alias "ShellExecuteA" (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

Sub mailVersenden()
    Dim eMailTo As String, Subject As String, Body As String
    eMailTo = "Mail@telecom.de.net"
    Subject = "Excel-Daten"
    Body = "Mein Text"
    Call Mail(eMailTo, Subject, Body)
End Sub

Sub Mail(eMail As String, Optional Subject As String, Optional Body As String)
    'Hier nichts ändern
    Call ShellExecute(0&, "Open", "mailto:" + eMail + _
    "?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub

'Ende des Codes
'-------------------

Gruss Rainer

Private Declare Function ShellExecute Lib "Shell32.dll" _ Alias "ShellExecuteA" (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 Sub sende_stoermeldung() Dim eMailTo As String, Subject As String, Body As String eMailTo = "jemand@domain" Subject = "Störmeldung: " & mld & " " & Date & " " & Time 'Leerzeichen bitte _ belassen Body = "" Call Mail(eMailTo, Subject, Body) End Sub Sub Mail(eMail As String, Optional Subject As String, Optional Body As String) 'Hier nichts ändern Call ShellExecute(0&, "Open", "mailto:" + eMail + _ "?Subject=" + Subject + "&Body=" + Body, "", "", 1) End Sub

Beliebteste Forumthreads (12 Monate)

Outlook Express statt Outlook mit Code ansprechen?

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Outlook Express statt Outlook mit Code ansprechen?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread