Onderwerp (subject) uit bericht halen.

[Janzwart]

Ik ben de tekst die in de onderwerp regel staat nodig voor een vervolg actie, maar krijg het niet voor elkaar om deze (met een macro) tevoorschijn te halen.

Ik weet dat je via excel een mailtje aan kan maken en de onderwerpregel kan vullen, maar is het ook mogelijk om het omgekeerde te doen in outlook.

Ps. ik heb versie 2010.

 

[OctaFish]

Het omgekeerde doen; dat lees ik dan als: in Excel het Onderwerp veld uitlezen en in een cel plaatsen. Maar of je dat ook bedoelt?

 

[Janzwart]

Als het op die manier lukt vind ik het ook prima, ik probeerde zelf om de tekst in outlook in een msgbox tevoorschijn te toveren.

 

[Janzwart]

@OctaFish,

Is het mogelijk om in outlook door middel van een macro de onderwerp regel te laten zien in een msgbox?

Of is het via Excel mogelijk.

Of is wat ik graag zou willen, helemaal niet mogelijk??

Als het het laatste is weet ik in ieder geval dat ik niet verder hoef te zoeken.

 

[OctaFish]

Ik heb daar wel macro's voor, maar niet thuis. Maar het is zeker mogelijk. Op de site van Helen Feddema vind je een paar aardige macro voorbeelden, o.a. om mails en contacten naar Excel te exporteren bijvoorbeeld. Met een paar simpele aanpassingen kun je daar ook andere macro's mee maken.

 

[Janzwart]

Bedankt voor de snelle reactie.

Ik ga hier mee aan de slag.

 

[Janzwart]

Met de volgende code is mijn vraag opgelost.

Sub ShowAttachment()
 
    'Declaration
    Dim myItem, myAttachments As Object
    Dim myOrt As String
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Dim myOlSel As Outlook.Selection
     
 
    On Error Resume Next
     
    'work on selected items
    Set myOlExp = myOlApp.ActiveExplorer
    Set myOlSel = myOlExp.Selection
     
    'for all items do...
    For Each myItem In myOlSel
     
        'point on attachments
        Set myAttachments = myItem.Attachments
         
        'if there are some...
        If myAttachments.Count > 0 Then
         
            
            'for all attachments do...
            For i = 1 To myAttachments.Count
             MsgBox myAttachments(i).DisplayName
                
            Next i
           
        End If
         
    Next
     
    'free variables
    Set myItem = Nothing
    Set myAttachments = Nothing
    Set myOlApp = Nothing
    Set myOlExp = Nothing
    Set myOlSel = Nothing
     
End Sub