Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Outlook Express statt Outlook mit Code ansprechen?

Betrifft: Outlook Express statt Outlook mit Code ansprechen? von: greenhorn
Geschrieben am: 19.08.2008 13:13:21

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

  

Betrifft: AW: Outlook Express statt Outlook mit Code ansprechen? von: Recherche
Geschrieben am: 19.08.2008 13:16:50

Hi Christian
guckst du mal hier in die Recherche, Suchbegriff Outlook Express


  

Betrifft: Outlook Express nimmt kein VBA an? von: greenhorn
Geschrieben am: 19.08.2008 13:31:13

Hallo,

ich habe mal in die Recherche geschaut und leider nur gefunden das OE kein VBA annimmt.
Also sitz ich sozusagen in einer Sackgasse? Oder kann mir viellcieht doch noch jemand weiterhelfen?

Christian


  

Betrifft: AW: Outlook Express nimmt kein VBA an? von: Rudi Maintaire
Geschrieben am: 19.08.2008 13:56:05

Hallo,

Also sitz ich sozusagen in einer Sackgasse?


so ist es.

Gruß
Rudi


  

Betrifft: AW: Outlook Express nimmt kein VBA an? von: Ramses
Geschrieben am: 19.08.2008 21:34:56

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


  

Betrifft: AW: Outlook Express nimmt kein VBA an? von: greenhorn
Geschrieben am: 25.08.2008 14:23:53

Hallo Ramses,

ich habe das mal so probiert allerdings kommt dann dies:



deinen code im modul habe ich so angepasst, vielleicht ist mir aber ein fehler unterlaufen.

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



christian


  

Betrifft: AW: Outlook Express nimmt kein VBA an? von: Ramses
Geschrieben am: 25.08.2008 19:59:10

Hallo

Was willst du denn übergeben ?
Dein Makro "sende_stoermeldung" ist nicht dafür geeignet einen Parameter zu übernehmen

Gruss Rainer


 

Beiträge aus den Excel-Beispielen zum Thema "Outlook Express statt Outlook mit Code ansprechen?"