VBA warten lassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Timo,
ein Beispielcode, der das drücken der Abbruchtaste erkennt.

Option Explicit
Private Declare Function SetActiveWindow Lib "USER32.DLL" ( _
    ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "USER32.DLL" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Public Sub prcMail()
    Dim myOutlookApplication As Object, myMail As Object
    Set myOutlookApplication = CreateObject("Outlook.Application")
    Set myMail = myOutlookApplication.CreateItem(0)
    With myMail
        .To = "abc@xyz.de"
        .Subject = "Rücksendung " & ThisWorkbook.Name
        .Attachments.Add ThisWorkbook.FullName
        On Error Resume Next
        .Send
        On Error GoTo 0
    End With
    SetActiveWindow FindWindow("xlMain", vbNullString)
    Select Case Err.Number
        Case 0
            MsgBox "Die Mappe wurde erfolgreich gesendet." & vbLf & vbLf & _
                "Ein Kopie der gesendeten Nachricht befindet sich in Ihrem Outlook-Ordner 'Gesendete Objekte'." _
                , 64, "Information"
        Case 287
            MsgBox "Die Mappe wurde nicht gesendet, da Sie den Vorgang abgebrochen haben.", 64, "Hinweis"
        Case Else
            MsgBox "Fehler: " & CStr(Err.Number) & vbLf & vbLf & Err.Description, 16, "Fehlermeldung"
    End Select
    Set myMail = Nothing
    Set myOutlookApplication = Nothing
    ThisWorkbook.Saved = True
End Sub

Gruß
Nepumuk

Hi!
Danke für die Antwort. Der Code ist nett, bringt mir aber glaube ich leider nichts... Mein Code sieht wie folgt aus:
Set OutLookJob = CreateObject("Outlook.Application")
Set mymail = OutLookJob.CreateItemFromTemplate("P:\ITS-RMTm\PUBLIC\Prozesse-Dokumentation-RM\Technik\RÜCKMELDUNG.oft") '*.Msg, *Oft
With mymail
.To = "G ISAM-RM"
.Subject = "Rückmeldung für " & release & " von " & projekt & ": " & rueckmeldung
.body = "Diese Nachricht wurde automatisch erstellt. Die Datei, die versendet werden soll, ist angehängt." _
& "Sie können jetzt hier noch bei Bedarf zusätzlichen Nachrichtentext mit einfügen." & vbCrLf & vbCrLf & vbCrLf & vbCrLf
.attachments.Add strDateiname
.display
End With
Set OutLookJob = Nothing
Das Problem bei mir ist, daß ich vorher ein .Display machen will, damit der User in der Mail noch Eingaben machen kann... Aber die asynchrone Arbeitsweise von VBA macht mir hierbei leider einen Strich durch die Rechnung... Gibts noch ne andere Möglichkeit zu überprüfen, ob die Nachricht gesendet wurde (außer, die Eingaben vorher in einer UserForm zu machen und dann wie oben vorzugehen...)?

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA warten lassen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread