ExcelWorkbook_via_Outlook_Senden

Sub Excel_Workbook_via_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 InitializeOutlook = True Set Nachricht = OutApp.CreateItem(0) With Nachricht .To = "peter@gmx.de" .Subject = "Testmeldung von Excel2000 " & Date & Time .attachments.Add AWS .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren." 'Hier wird die Mail nochmals angezeigt .Display 'Hier wird die Mail gleich in den Postausgang gelegt Mail.Send '"hier hängt sich Excel jedoch immer auf" End With 'Outlook schliessen 'OutApp.Quit Set OutApp = Nothing Set Nachricht = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Excel_Workbook_via_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 InitializeOutlook = True Set Nachricht = OutApp.CreateItem(0) With Nachricht .To = "peter@gmx.de" .Subject = "Testmeldung von Excel2000 " & Date & Time .attachments.Add AWS .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren." 'Hier wird die Mail nochmals angezeigt '.Display 'Hier wird die Mail gleich in den Postausgang gelegt .Send End With MsgBox "Die DATEI wurde gesendet, bzw. liegt im Postausgang!" 'Outlook schliessen 'OutApp.Quit Set OutApp = Nothing Set Nachricht = Nothing End Sub

Hallo Peter,
wenn du Outlook weiter benutzen willst, dann nicht. Ist ja auch ganz sinnvoll diese Sicherheitsabfrage. Auf folgender Seite:
http://www.contextmagic.com/downloads.htm
findest du das Programm: Express ClickYes
Instaliere das und ändere dein Makro so:

Option Explicit
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Sub Excel_Workbook_via_Outlook_Senden()
    Dim Nachricht As Object, OutApp As Object
    If FindWindow("EXCLICKYES_WND", 0&) = 0 Then Shell "C:\Programme\Express ClickYes\ClickYes.EXE", 4
    SendMessage FindWindow("EXCLICKYES_WND", 0&), RegisterWindowMessage("CLICKYES_SUSPEND_RESUME"), 0, 0
    Set OutApp = CreateObject("Outlook.Application")
    Dim AWS As String
    'Aktive Arbeitsmappe wird als Mail gesendet
    AWS = ThisWorkbook.FullName
    InitializeOutlook = True
    Set Nachricht = OutApp.CreateItem(0)
    With Nachricht
        .To = "peter@gmx.de"
        .Subject = "Testmeldung von Excel2000 " & Date & Time
        .attachments.Add AWS
        .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
        'Hier wird die Mail nochmals angezeigt
        '.Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        SendMessage FindWindow("EXCLICKYES_WND", 0&), RegisterWindowMessage("CLICKYES_SUSPEND_RESUME"), 1, 0
        .Send
        SendMessage FindWindow("EXCLICKYES_WND", 0&), RegisterWindowMessage("CLICKYES_SUSPEND_RESUME"), 0, 0
    End With
    MsgBox "Die DATEI wurde gesendet, bzw. liegt im Postausgang!"
    'Outlook schliessen
    'OutApp.Quit
    Set OutApp = Nothing
    Set Nachricht = Nothing
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread