Größe einer E-Mail feststellen.
15.02.2008 17:41:00
Tino
hiermit lese ich als Beispiel den Absender der ersten E-Mail im Posteingang.
Nun möchte ich die Größe, der ersten E-Mail feststellen. (nach Möglichkeit in KB)
Wie oder was muss ich anstatt SenderName für einen Befehl schreiben?
Konnte über Google usw. nichts finden bezüglich E-Mail und größe.
Könnt Ihr mir auch diesmal, wie schon so oft helfen?
Sub SendMessage()
MsgBox "Mail von: " & Chr(13) & Text
End Sub
Function Text() As String
Dim objOutlook As Object
Dim objnSpace As Object
Dim objFolder As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.Folders("Persönliche Ordner").Folders("Posteingang")
Text = objFolder.Items(1).SenderName
Set objFolder = Nothing
Set objnSpace = Nothing
Set objOutlook = Nothing
End Function
Gruß
Tino