Outlook > gesendet am auslesen
08.09.2006 14:49:55
Boris
ich habe ein Makro geschrieben, mit dem ich gewisse Eigenschaften der Mails in einem Subfolder meiner Inbox auslese. Was ich aber partout nicht finden kann, ist die Eigenschaft für die "gesendet am Zeit".
Hier mal das Makro
Sub EMails_auslesen2()
Dim Out As Outlook.MAPIFolder
Dim i_Ges As Integer
Dim i As Integer
Dim y As Integer
Set Out = GetObject("", "Outlook.Application").GetNamespace("Mapi"). _
GetDefaultFolder(olFolderInbox).Folders("Preise")
i_Ges = Out.Items.Count
i = 0
y = 2
While i < i_Ges
i = i + 1
With Out.Items(i)
Cells(y, 1).Value = .SenderName
Cells(y, 1).Offset(0, 1).Value = .Subject
Cells(y, 1).Offset(0, 2).Value = .Attachments.Count
Cells(y, 1).Offset(0, 3).Value = .ReceivedTime
End With
y = y + 1
Wend
End Sub
.Sent liefert mir aber nur ein True, nicht die Zeit wie bei ReceivedTime.
Ich habe schon die Hilfe durchsucht, aber irgentwie finde ich nicht das richtige.
Merci für Eure Hilfe
Gruss
BORIS