How to capture selected email's: subject, date, sending person to variable

[pitaszek]

Hello Community,

I would like to know how to operate on Outlook objects.

I need to highlight an email and retrieve it's basic details like: subject, who is the sender, date etc.

Then ideally forward the values to a form where I will be able to select another attributes (specified by me) and send to Excel.

Hope you can give me some examples.

Cheers,
W

 

[Worf]

Hello

This example code goes in Outlook module:

Sub Outlook_to_Excel()
Dim xl As Object, mi As MailItem, wb, ws
Set mi = Application.ActiveInspector.CurrentItem
Set xl = CreateObject("Excel.Application")
xl.Visible = 1
Set wb = xl.Workbooks.Open("d:\pub\solver.xlsm")                ' your path here
Set ws = wb.sheets("sheet1")
With mi
    If TypeName(mi) = "MailItem" Then
        ws.[b25] = .SenderEmailAddress                          ' transfer to Excel
        ws.[b26] = .Subject
        ws.[b27] = .ReceivedTime
        ws.[b28] = .SentOn
        ws.[b29] = .Importance
    End If
End With
Set ws = Nothing: Set wb = Nothing
Set xl = Nothing: Set mi = Nothing
End Sub