----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open("C:\Temp\MeineMail.msg")
 
objFile.SummaryProperties.Author = VariableMitAbsender
objFile.Save

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = True Then
        Error 1002
    End If
 
    'Save file
    myMailItem.----SummaryProperties------.Author = EXM_OPT_SENDER
    myMailItem.SaveAs strFullPath, vExtConst

If Not CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = _
  True Then
    Error 1002
End If
 
'Save file
myMailItem.SaveAs strFullPath, vExtConst
 
Set objFile = CreateObject("DSOFile.OleDocumentProperties")
objFile.Open(strFullPath)
 
objFile.SummaryProperties.Author = EXM_OPT_SENDER
objFile.Save

    Dim myMailItem As MailItem
    Dim objfile As ?
    Dim strDate As String
    Dim strSender As String
    Dim strReceiver As String
    Dim strSubject As String
    Dim strFinalFileName As String
    Dim strFullPath As String
    Dim vExtConst As Variant
    Dim vTemp As String
    Dim strErrorMsg As String

Dim objFile As Object