Home-›Foren-›Outlook-›Outlook VBA-›auswahl eines posfaches
- Dieses Thema hat 0 Antworten sowie 1 Stimme und wurde zuletzt vor 22:42 um 10. Januar 2011 von Unbekannt aktualisiert.
- AutorBeitrag
- 10. Januar 2011 um 22:42 #53127UnbekanntTeilnehmer
Hallo zusammen,
Ich würde eure fachkundige Unterstützung benötigen da ich selbst schon fast am verzweifeln bin. Ich verwende ein Makro welches ankommende und abgehende Mails automatisch als .txt Datei abspeichert – funkt auch wunderbar.
Ich verwalte in Outlook 2 Konten (Hotmail) und leider greift das Makro nur auf den default Posteingang zu. Wie schaffe ich es das ich das zweite (nur das zweite!) Konto überwache?! Es handelt sich um ein Hotmailkonto – Bezeichnung „Thomas“ sollte das wichtig sein…Public Enum olSaveAsTypeEnum
olSaveAsTxt = 0
olSaveAsRTF = 1
olSaveAsMsg = 3
End Enum
Private WithEvents outgoingItems As Outlook.Items
Private WithEvents incomingItems As Outlook.ItemsPrivate Const incomingPfad As String = \”P:\\temp\\IncomingMails\\\”
Private Const outgoingPfad As String = \”P:\\temp\\OutgoingMails\\\”Private Sub Application_Startup()
Dim Ns As Outlook.NameSpaceSet Ns = Application.GetNamespace(\”MAPI\”)
Set incomingItems = Ns.GetDefaultFolder(olFolderInbox).Items
Set outgoingItems = Ns.GetDefaultFolder(olFolderSentMail).ItemsEnd Sub
Private Sub incomingItems_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
SaveMailAsFile Item, olSaveAsTxt, incomingPfad
End If
End SubPrivate Sub outgoingItems_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
SaveMailAsFile Item, olSaveAsTxt, outgoingPfad
End If
End Sub
Private Sub SaveMailAsFile(oMail As Outlook.MailItem, eType As olSaveAsTypeEnum, sPath As String)Dim dtDate As Date
Dim sName As String
Dim sExt As StringSelect Case eType
Case olSaveAsTxt: sExt = \”.txt\”
Case olSaveAsMsg: sExt = \”.msg\”
Case olSaveAsRTF: sExt = \”.rtf\”
End SelectsName = oMail.Subject
ReplaceCharsForFileName sName, \”_\”dtDate = oMail.ReceivedTime
sName = Format(dtDate, \”yyyymmdd\”, vbUseSystemDayOfWeek, vbUseSystem) & Format(dtDate, \”-hhnnss\”, vbUseSystemDayOfWeek, vbUseSystem) & \”-\” & sName & sExt
oMail.SaveAs sPath & sName, eType
End SubPrivate Sub ReplaceCharsForFileName(sName As String, sChr As String)
sName = Replace(sName, \”/\”, sChr)
sName = Replace(sName, \”\\\”, sChr)
sName = Replace(sName, \”:\”, sChr)
sName = Replace(sName, \”?\”, sChr)
sName = Replace(sName, Chr(34), sChr)
sName = Replace(sName, \”<\", sChr) sName = Replace(sName, \">\”, sChr)
sName = Replace(sName, \”|\”, sChr)
End Sub - AutorBeitrag