Ontvangstdatum uit email kopieren

Status
Niet open voor verdere reacties.
K

Knight75

Gebruiker
Lid geworden
21 nov 2020
Berichten
47
Ik wil graag de ontvangstdatum uit een ontvangen 'geselecteerde' email (postvak in van een functionele mailbox) kopiëren naar een willekeurig cel in Excel.
Het gaat hierbij dus om de volledige datum en tijd (07-12-2022 18:55) die ik wil kopiëren.

Is dit simpel op te lossen in VBA?
 
Laatst bewerkt:
Wil je dan nog een specifieke mail zoeken ook?
 
ja, inderdaad het gaat dan om een specifieke mail, namelijk diegene die geselecteerd is.
 
Probeer deze eens

Code: 
Sub jec()
MsgBox CreateObject("outlook.application").ActiveExplorer.Selection(1).SentOn
End Sub
 
Ja, dit werkt goed en de ontvangstdatum en tijd worden getoond in de messagebox.
Nu zoek ik nog iets dat de datum en tijd kopieert naar het klembord, zodat ik het kan plakken in excel
 
Zo wordt deze in A1 gezet

Code: 
Sub jec()
On Error Resume Next
Range("A1") = CreateObject("outlook.application").ActiveExplorer.Selection(1).SentOn
End Sub
 
Op zich werkt dit, maar ik wil dus de datum en tijd naar het klembord kopiëren, zodat ik het naar een willekeurige cel in excel kan plaatsen.
 
Ik kan er nu niet naar kijken, misschien dat iemand anders het kan aanvullen
 
Code: 
Sub jec()
    On Error Resume Next
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")    'MsForms.DataObject
        .SetText CreateObject("outlook.application").ActiveExplorer.Selection(1).SentOn
        .PutInClipboard
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan