Nsryjdtyk

I want to save email in my local folder using Excel VBA.

I saw this link https://www.mrexcel.com/forum/excel-questions/361751-vba-saving-email-only-after-send-pushed.html which uses a class module to save the email. It stores the email at the same time it opens it for display. The email saved is the draft email. You can still edit the saved .msg file.

How would I wait until the email is sent? Presumably once it detects the email in the Outlook 'Sent Items' folder?

Dim cls_OL As New clsOutlook

Public outMail As Outlook.MailItem

Public Emailpath As String



Sub SendEmail()

Dim objItems As Items

Dim objApp As Object

Set objApp = CreateObject("Outlook.Application")

Set cls_OL.obj_OL = GetObject(Class:="Outlook.Application")

Set OutMail = objItems.Add

Emailpath = "V:testemailname.msg"

With OutMail

On Error Resume Next

    .HTMLBody = "Hi All, This is test email" 

    .to = "test@test.com"

    .CC = vbnullstring

    .BCC = vbnullstring

    .Subject = "A Subject"

    .Display

End With

Set OutMail = Nothing

End Sub

.

Option Explicit

Public WithEvents obj_OL As Outlook.Application



Private Sub obj_OL_ItemSend(ByVal Item As Object, Cancel As Boolean)

  Item.SaveAs Emailpath

  Set obj_OL = Nothing

  Set outMail = Nothing

End Sub

This is the email that is being saved:

This is what I want to save:

Edit with the suggestion from Dmitry

Dim cls_OL As New clsOutlook

Public outMail As Outlook.MailItem

Public Emailpath As String



Sub SendEmail()

Dim objItems As Items

Dim Emailpath as string

Dim objApp as object

Set objApp = CreateObject("Outlook.Application")

Set objItems = objApp.Session.GetDefaultFolder(olFolderSentMail).Items

Set OutMail = objItems.Add 

Emailpath = "V:testemailname.msg"

With OutMail



    .HTMLBody = "Hi All, This is test email" 

    .to = "test@test.com"

    .CC = vbnullstring

    .BCC = vbnullstring

    .Subject = "A Subject"

    .Display

End With

Set OutMail = Nothing

End Sub

.

Option Explicit

Public WithEvents objItems As Outlook.Application



Private Sub objItems_ItemAdd(ByVal Item As Object)

  Item.SaveAs Emailpath

  Set obj_OL = Nothing

  Set outMail = Nothing

End Sub

You can listen for the Items.ItemAdd event on the Sent Items folder (you can retrieve it using Namespace.GetDEfaultFolder(olFolderSentMail)).

EDIT: off the top of my head:

public WithEvents objItems As Outlook.Items

set objItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items

...

Private objItems_ItemAdd(ByVal Item As Object)

  Item.SaveAs Emailpath

End Sub