Mailadressen van afzenders uitlezen uit Outlook en in Excel plaatsen.

[Gert Bouwmeeste]

Goedemorgen

Ik probeer een macro te bouwen die (het mailadres van) de afzenders van een mailtje in de Inbox van Outlook uitleest en die vervolgens in Excel plaatst.

Ik heb de site van SNB doorgeploeterd (met name de C53= .Sendername) maar het lukt me niet om de mailadressen in Excel te krijgen.

Wie kan mij (op weg) helpen? Alvast heel erg bedankt!

Ik heb deze code geprobeerd:

Sub email__eigenschappen()
With CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items(1)
c0 = .Actions.Count
For Each ac In .Actions
d1 = ac.Application
d2 = ac.Class
d3 = ac.CopyLike
d4 = ac.Enabled   ' waar/ onwaar
d5 = ac.MessageClass
d6 = ac.Name
d7 = ac.Parent
d8 = ac.prefix
d9 = ac.ReplyStyle
d10 = ac.ResponseStyle
d11 = ac.Session
d12 = ac.ShowOn
Next
c1 = .AlternateRecipientAllowed   ' waar/ onwaar
c2 = .Application
c3 = .Attachments.Count   ' aantal bijlagen
c4 = .AutoForwarded   ' waar / onwaar
c5 = .BCC   ' BCC-ontvangers
c6 = .BillingInformation
c7 = .body   ' inhoud bericht
c8 = .Categories
c9 = .CC   ' kopie-ontvangers
c10 = .Class
c11 = .Companies
c12 = .ConversationIndex
c13 = .ConversationTopic
c14 = .CreationTime
c15 = .DeferredDeliveryTime
c16 = .DeleteAfterSubmit   ' waar / onwaar
c17 = .entryId
c18 = .ExpiryTime
c19 = .FlagDueBy
c20 = .FlagRequest
c21 = .FlagStatus
C22 = .FormDescription
c23 = .GetInspector
c24 = .HTMLBody
c25 = .Importance
c26 = .LastModificationTime
c27 = .links.Count
c28 = .MessageClass
c29 = .Mileage
c30 = .NoAging   ' waar / onwaar
c31 = .OriginatorDeliveryReportRequested   ' waar / onwaar
c32 = .OutlookInternalVersion
c33 = .OutlookVersion
c34 = .Parent
c35 = .ReadReceiptRequested   ' waar / onwaar
c36 = .ReceivedByEntryID
c37 = .ReceivedByName
c38 = .ReceivedOnBehalfOfEntryID
c39 = .ReceivedOnBehalfOfName
c40 = .ReceivedTime
c41 = .RecipientReassignmentProhibited   ' waar / onwaar
c42 = .Recipients.Count
For Each rp In .Recipients
d1 = rp.Name
d2 = rp.address
d3 = rp.Name
Next
c43 = .ReminderOverrideDefault   ' waar / onwaar
c44 = .ReminderPlaySound   ' waar / onwaar
c45 = .ReminderSet   ' waar / onwaar
c46 = .ReminderSoundFile
c47 = .ReminderTime
c48 = .RemoteStatus
c49 = .ReplyRecipientNames
c50 = .ReplyRecipients.Count
c51 = .Saved   ' waar / onwaar
c52 = .SaveSentMessageFolder
c53 = .SenderName
c54 = .Sensitivity
c55 = .Sent   ' waar / onwaar
c56 = .SentOn
c57 = .sentonbehalfofname
c58 = .Session
c59 = .Size
c60 = .subject
c61 = .Submitted   ' waar / onwaar
c62 = .To
c63 = .UnRead   ' waar / onwaar
c64 = .UserProperties.Count
c65 = .VotingOptions
c66 = .VotingResponse
End With
End Sub

 

[snb]

Helpt dit ?

Sub M_snb()
  with CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
    for each it in .Items
      msgbox it.sendername
    next
  End With
End Sub

 

[Gert Bouwmeeste]

Dank je wel. Dat zet in een Messagebox inderdaad de naam van de afzender, maar niet het mailadres van de afzender. En dat zoek ik ...

 

[edmoor]

Sub M_snb()
  With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
    For Each it In .Items
      MsgBox it.Sender.Address
    Next
  End With
End Sub

 

[Warme bakkertje]

Sub M_snb()
  With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
    For Each it In .Items
      MsgBox it.SenderEmailAddress
    Next
  End With
End Sub

 

[snb]

Het wordt uiteindelijk:

Sub M_snb()
  With CreateObject("Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(6)
    For Each it In .Items
      MsgBox it.Sentonbehalfofname
    Next
  End With
End Sub

 

[Gert Bouwmeeste]

Geweldig bedankt! Het werkt! De laatste code van SNB niet, die geeft weer de gewone naam en niet het mailadres. De codes uit #4 en #5 werken allebei

Fijn weekend!