Microsoft Excel

Herbers Excel/VBA-Archiv

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

Excel per Outlook macht Probleme

Betrifft: Excel per Outlook macht Probleme von: Hartmut
Geschrieben am: 30.10.2012 09:49:27

Hallo liebes Forum
ich das Problem, dass beim Aktivieren des nachfolgenden Makros eine Speicherabfrage kommt. Drücke ich auf abbrechen schliesst dummerweise noch das Outlook.
Siehe Anhang Printscreen.
Geht das Verschicken auch ohne die Speicherabfrage?
Danke für euer Hilfe.
Lieber gruss aus Zürich
Hartmut

https://www.herber.de/bbs/user/82381.xls

Sub Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
ActiveWorkbook.Save
With Nachricht
ActiveWorkbook.Save
        .To = "XXXXXXX@XX.ch"
        .Subject = "Bestellung Zusatzauflage " & Date & Time
        .attachments.Add AWS
        .Body = "Lieber H."

        .Display
    
End With

OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

  

Betrifft: AW: Excel per Outlook macht Probleme von: mumpel
Geschrieben am: 30.10.2012 10:55:22

Hallo!

Diese Meldung ist unnormal. Eigentlich darf diese Meldung nicht erscheinen, da das Speichern nicht vom Makro angewiesen wird. Frag mal den Netztwerk-Administrator, und/oder prüfe die Outlook-Einstellungen. Eventuell hast Du eingestellt, dass Emails gespeichert werden sollen anstatt zu senden.

Im Übrigen hast Du "ActiveWorkbook.Save" zweimal drin. Einmal genügt auch.

Gruß, René


  

Betrifft: AW: Excel per Outlook macht Probleme von: Hartmut
Geschrieben am: 30.10.2012 12:50:33

Danke Mumpel
Lustigerweise kommt auf einem anderen PC die gleiche Meldung nicht von Outtlook sondern von Excel.
Ich versteh das nicht..


  

Betrifft: AW: Excel per Outlook macht Probleme von: mumpel
Geschrieben am: 30.10.2012 13:38:51

Die Meldung kommt definitiv nicht von Excel. Im Meldungsfenster steht "Microsoft Office Outlook". Diese Meldung ist auch typisch für Outlook. Ist Outlook im Hintergrund aktiv? Wenn nicht solltest Du mal mit geöffneten Outlook versuchen.


  

Betrifft: AW: Excel per Outlook macht Probleme von: Kawensmann
Geschrieben am: 30.10.2012 13:38:13

Hallo,

alles läuft völlig korrekt ...

Du erstellst per VBA eine Mail und speicherst (und sendest) sie nicht. Dann willst mit OutApp.Quit Outlook schließen. Also fragt Outlook korrekterweise, ob du die (nicht gespeicherte) Mail speichern willst ... Egal was du drückst, danach schließt OutApp.Quit Outlook.


Gruß
Kawensmann


  

Betrifft: AW: Excel per Outlook macht Probleme von: mumpel
Geschrieben am: 30.10.2012 13:41:46

"OutApp.Quit " hab ich übersehen. Zudem ist der Code auch ziemlich durcheinander.

Sub Outlook_Senden()
Dim olApp As Object
Dim AWS As String

ActiveWorkbook.Save
AWS = ThisWorkbook.FullName

Set olApp = CreateObject("Outlook.Application")
    With olApp
        .To = "XXXXXXX@XX.ch"
        .Subject = "Bestellung Zusatzauflage " & Date & Time
        .attachments.Add AWS
        .Body = "Lieber H."
        .Display
    End With

End Sub




VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 14



  

Betrifft: AW: Excel per Outlook macht Probleme von: Hartmut
Geschrieben am: 30.10.2012 15:30:20

Hallo Kawensmann, hallo mumpel
Jetzt läufts wie geschmiert.
Vielen herzlichen herzlichen Dank für eure Antworten!!

Eine kleine Zusatzfrage:
Geht das, dass ich dann aus einer Excel Zelle einen Namen in den Absender des E-Mail übernehme?
.Body Text und dann den Bezug aus der angehängten Exceltabelle.
Danke & lieber Gruss
Hartmut


  

Betrifft: AW: Excel per Outlook macht Probleme von: Klaus M.vdT.
Geschrieben am: 30.10.2012 15:37:12

Hi,
das geht zB so:

.Body = "Lieber H." & sheet("Tabelle1").Range("A1")

Musst natürlich anpassen.

Grüße,
Klaus M.vdT.


  

Betrifft: AW: Excel per Outlook macht Probleme von: Hartmut
Geschrieben am: 30.10.2012 16:15:18

Danke Klaus!
Perfekt!


  

Betrifft: Danke für die Rückmeldung! owT von: Klaus M.vdT.
Geschrieben am: 30.10.2012 16:23:37

.


  

Betrifft: AW: Excel per Outlook macht Probleme von: Hartmut
Geschrieben am: 30.10.2012 16:24:30

hallo Klaus
Das Ecxel ist noch nicht ganz zufrieden,
ich belkomme folgende Fehlermeldung...

https://www.herber.de/bbs/user/82393.xls


  

Betrifft: AW: Excel per Outlook macht Probleme von: mumpel
Geschrieben am: 30.10.2012 17:05:54

Es muss "Sheets" heissen, nicht "Sheet".


 

Beiträge aus den Excel-Beispielen zum Thema "Excel per Outlook macht Probleme"