Herbers Excel/VBA-Archiv

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

Outlook Express statt Outlook mit Code ansprechen?

• Outlook Express statt Outlook mit Code ansprechen? von greenhorn vom 19.08.2008 13:13:21
• AW: Outlook Express statt Outlook mit Code ansprechen? - von Recherche am 19.08.2008 13:16:50
  • Outlook Express nimmt kein VBA an? - von greenhorn am 19.08.2008 13:31:13
    • AW: Outlook Express nimmt kein VBA an? - von Rudi Maintaire am 19.08.2008 13:56:05
    • AW: Outlook Express nimmt kein VBA an? - von Ramses am 19.08.2008 21:34:56
      • AW: Outlook Express nimmt kein VBA an? - von greenhorn am 25.08.2008 14:23:53
        • AW: Outlook Express nimmt kein VBA an? - von Ramses am 25.08.2008 19:59:10

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

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?"