Ich möchte MSG-Dateien in Outlook ( nicht Outlook express ) über VBA-macros importieren.
Ich erstelle aus einer MSG-Datei mittels Application.CreateItemFromTemplate( ... ) eim MailItem, welches in den Posteingang verschoben wird.
Das hat den unschönen Effekt, das sie beim öffen aus dem Posteingangen ein Schreibecursor besitzt und die Mail beliebig änder kann. Was es nicht seinsollte!
Hier ist noch der Beispiel code der wie es "grob" funktioniert:
Ich erstelle aus einer MSG-Datei mittels Application.CreateItemFromTemplate( ... ) eim MailItem, welches in den Posteingang verschoben wird.
Das hat den unschönen Effekt, das sie beim öffen aus dem Posteingangen ein Schreibecursor besitzt und die Mail beliebig änder kann. Was es nicht seinsollte!
Hier ist noch der Beispiel code der wie es "grob" funktioniert:
Code:
Dim mail_Item As Outlook.MailItem
Dim mail_Folder As Outlook.MAPIFolder
Dim item As Object
' hole mir Posteingang
mail_Folder = Application.GetNamespace("MAPI").GetDefaultFolde(olFolderInbox)
' erstelle ein Outlook-Klasse
item = Application.CreateItemFromTemplate("C:\test.msg")
' wenn item vom type MailItemisr
If TypeOf item Is MailItem Then
' dann ...
' Setze als MailItem
mail_Item = item
' Setze als ungelesen um es hervor zuheben
mail_Item.UnRead = True
' Mail wird in den Pasteingang verschoben
mail_Item.Move (mail_Folder)
End If
