mreske
Mar 12, 2021
view2668
view11
0
Goto Top

Outlook VBA Gesendete Email in Aufgabe anlegen

GermansolvedQuestionOutlook MailMicrosoft
Hallo zusammen,
ich kenne mich mit Outlook VBA noch nicht so gut aus und bräuchte Hilfe:

Ich möchte nach dem Senden (egal, ob neue Mail oder beantwortete bzw. weitergeleitete EMail)
a. Eine neue Aufgabe anlegen
b. In der Aufgabe soll der Betreff = der Betreff der gesendeten Email sein
c. Im Body der Aufgabe soll die gesendete Email eingefügt werden

Mein Code legt aber nicht die SOEBEN versendete Mail in die Aufgabe,
sondern die vorletze Mail.

Könnte mir vielleicht jemand sagen, was ich hier falsch mache?

Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

'Msgbox Abfrage  
Select Case MsgBox("Aufgabe anlegen", vbYesNo + vbQuestion, "Aufgabe zur Mail")  

'Wenn mit "Ja" bestätigt  
Case vbYes

Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCC As String

Dim oAccount As Outlook.Account
Dim outl, Task As Object
Dim olApp As Object, objMail As Object

strSubject = Item.Subject 'Email Betreff  
strFrom = Item.SendUsingAccount 'Absender  
strTo = Item.To 'Empfänger  
strCC = Item.CC 'Empfänger im CC  

Set outl = CreateObject("Outlook.Application")  
Set Task = outl.CreateItem(3)
Set Item = ActiveInspector.CurrentItem

'Aufgabe erstellen  
Task.Subject = strSubject 'Aufgabenbetreff soll den gleichen Namen haben, wie der Email-Betreff  
Task.Body = _
Date & vbTab & "Von: " & strFrom _  
& Chr(13) & vbTab & vbTab & "An: " & strTo _  
& Chr(13) & vbTab & vbTab & "CC: " & strCC _  
& Chr(13)
'Die soeben versendete Email in die Aufgabe kopieren  
Set olApp = GetObject(, "OutLook.Application")  
Set objMail = olApp.Session.GetDefaultFolder(5).Items.GetLast
'MsgBox objMail  
Task.Attachments.Add objMail

'Wichtigkeit Hoch (2 = Hoch, 1 = normal, 0 = niedrig)  
Task.Importance = 2
Task.StartDate = Date 'heute  
Task.DueDate = Date 'heute  
Task.Display

Case vbNo 'Wenn mit "Nein" bestätigt wurde  
End Select
End Sub

Danke im Voraus.
LG
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 661813

Url: https://administrator.de/contentid/661813

Printed on: April 24, 2024 at 10:04 o'clock

11 Comments
Latest comment
Goto Top
Member: beidermachtvongreyscull
beidermachtvongreyscull Mar 12, 2021 updated at 07:35:39 (UTC)
Goto Top
Moin,

ich mutmaße auf die Schnelle, aber Du feuerst dieses Makro beim Senden einer E-Mail und nicht danach.
Public Sub Application_ItemSend

Wenn eine E-Mail gesendet wird, liegt sie erst im Postausgang und danach im "Gesendete Objekte"-Ordner.

Ich würde eine Warteschleife einbauen, die ca. 5 Sekunden verzögert. Das sollte reichen.

Gruß
bdmvg
Member: mreske
mreske Mar 12, 2021 at 07:58:53 (UTC)
Goto Top
Hallo und danke für die Antwort
ich probiere es dann mal mit

Application.Wait Now + TimeSerial(0, 0, 5)

Danke
Member: mreske
mreske Mar 12, 2021 at 08:09:32 (UTC)
Goto Top
Leider kommt dann die Fehlermeldung:
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht.

2021-03-12_090912
Member: beidermachtvongreyscull
beidermachtvongreyscull Mar 12, 2021 updated at 08:20:21 (UTC)
Goto Top
Probiere es so:

Application.Wait(Now + TimeValue("0:00:05"))
Member: mreske
mreske Mar 12, 2021 at 08:55:17 (UTC)
Goto Top
Leider kommt immer noch die selbe Fehlermeldung
Mitglied: 147669
Solution 147669 Mar 12, 2021 updated at 09:27:45 (UTC)
Goto Top
Ihr denkt hier viel zu kompliziert, denn an das ItemSend Event wird ja die zu sendende Mail bereits als Parameter in der Variable Item übergeben, also kann diese direkt genutzt werden um sie als Attachment hinzuzufügen face-wink, außerdem sind da einige überflüssige Schnippsel enthalten wie z.B. das Erstellen eines Outlook-Objekts denn das Event selbst läuft ja schon in Outlook, also kann man hier das Application Objekt benutzen statt ein neues Objekt zu erstellen

Public Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    'Msgbox Abfrage  
    Select Case MsgBox("Aufgabe anlegen", vbYesNo + vbQuestion, "Aufgabe zur Mail")  
        'Wenn mit "Ja" bestätigt  
        Case vbYes
        
            Dim strSubject As String
            Dim strFrom As String
            Dim strTo As String
            Dim strCC As String
            Dim Task As TaskItem
            
           ' Item vorher speichern damit es eine gültige ID im Outlook-Store hat und damit dann auch korrekt als Attachment im Task landet  
            Item.Save
            
            strSubject = Item.SUBJECT 'Email Betreff  
            strFrom = Item.SendUsingAccount 'Absender  
            strTo = Item.To 'Empfänger  
            strCC = Item.CC 'Empfänger im CC  
            
            Set Task = Application.CreateItem(olTaskItem)
            
            'Aufgabe erstellen  
            Task.SUBJECT = strSubject 'Aufgabenbetreff soll den gleichen Namen haben, wie der Email-Betreff  
            Task.Body = _
            Date & vbTab & "Von: " & strFrom _  
            & Chr(13) & vbTab & vbTab & "An: " & strTo _  
            & Chr(13) & vbTab & vbTab & "CC: " & strCC _  
            & Chr(13)

            Task.Attachments.Add Item
            
            'Wichtigkeit Hoch (2 = Hoch, 1 = normal, 0 = niedrig)  
            Task.Importance = 2
            Task.StartDate = Date 'heute  
            Task.DueDate = Date 'heute  
            Task.Display
            
        Case vbNo 'Wenn mit "Nein" bestätigt wurde  
        
    End Select
End Sub
Gruß SK
heart1
Member: beidermachtvongreyscull
beidermachtvongreyscull Mar 12, 2021 at 09:22:08 (UTC)
Goto Top
Danke für den Augenöffner. face-big-smile
Member: mreske
mreske Mar 12, 2021 at 19:11:39 (UTC)
Goto Top
Vielen Dank,
funktioniert perfekt
Beste Grüße und schönes Wochenende!
Member: waasges
waasges Jul 29, 2022 at 13:25:46 (UTC)
Goto Top
Hallo zusammen,

ich muss das Thema noch einmal hochholen und eine Frage loswerden...

Ich habe Outlook365 in der Firma und den o. g. VBA Code in Outlook hinterlegt.
Am ersten Tag hat er wunderbar funktioniert. Seit dem 2. Tag kommt die Abfrage nicht mehr.

Ich habe leider noch nicht herausfinden können, weshalb das so ist...und hoffe, dass Ihr mir helfen könnt.

Benötigt Ihr noch weitere Informationen, dann schreibt hier kurz. Vorab schon mal vielen Dank und ein schönes Wochenende. face-smile

Marco
Mitglied: 3479126418
3479126418 Jul 29, 2022 updated at 13:30:57 (UTC)
Goto Top
Am ersten Tag hat er wunderbar funktioniert. Seit dem 2. Tag kommt die Abfrage nicht mehr.
Dann hat dir das Security-Center/GPO/etc. die Makros unter dem A.... weggezogen und wieder deaktiviert face-wink.
heart1
Member: waasges
waasges Jul 29, 2022 at 13:35:08 (UTC)
Goto Top
Zitat von @bangalore:

Am ersten Tag hat er wunderbar funktioniert. Seit dem 2. Tag kommt die Abfrage nicht mehr.
Dann hat dir das Security-Center/GPO/etc. die Makros unter dem A.... weggezogen und wieder deaktiviert .

Das stimmt wohl 😬 Oh je, das hatte ich noch gar nicht in Betracht gezogen. Nun funktioniert es anscheinend wieder.

Danke für den Hinweis. 😊
GermansolvedQuestionOutlook MailMicrosoft
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments