8
OUTLOOK 2003 VBA Mails kopieren auf Festplatte
Hallo alle zusammen,
ich will mit Outlook VBA alle Mails im Ordner "test.pst" aus dem Ordner "Eingang" auf die Festplatte D:\archive mit dem Datum´, Uhrzeit und dem Betreff als Dateiname speichern. Ich krieg es einfach nicht hin.
Dim objOutlook
Dim objnSpace
Dim objFolder
Dim objmail
Dim objNewMail As MailItem
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.Folders("Kerstin").Folders("merken")
For Each objNewMail In objFolder.Items
With objNewMail
.Copy ????????
End With
Next
Einen schönen Gruß
Ralf Dorn
ich will mit Outlook VBA alle Mails im Ordner "test.pst" aus dem Ordner "Eingang" auf die Festplatte D:\archive mit dem Datum´, Uhrzeit und dem Betreff als Dateiname speichern. Ich krieg es einfach nicht hin.
Dim objOutlook
Dim objnSpace
Dim objFolder
Dim objmail
Dim objNewMail As MailItem
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.Folders("Kerstin").Folders("merken")
For Each objNewMail In objFolder.Items
With objNewMail
.Copy ????????
End With
Next
Einen schönen Gruß
Ralf Dorn
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 92630
Url: https://administrator.de/contentid/92630
Printed on: April 20, 2024 at 02:04 o'clock
8 Comments
Latest comment
Moin
Als erstes würde ich dir zum Entwickelm empfehlen einen Verweis auf die Microsoft Outlook Object Library zu setzen.
Dann könntest du das so machen: (Ungetestet!!)
Gruß L.
Als erstes würde ich dir zum Entwickelm empfehlen einen Verweis auf die Microsoft Outlook Object Library zu setzen.
Dann könntest du das so machen: (Ungetestet!!)
Dim objOutlook As Outlook.Application
Dim objnSpace As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim objNewMail As Outlook.MailItem
Dim Filename as String
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.Folders("Kerstin").Folders("merken")
For Each objNewMail In objFolder.Items
With objNewMail
Filename = CStr(.SendOn) & " " & CStr(.Subject) & ".msg"
.SaveAs ("C:\MeinPfad\" & Filename )
End With
Next Gruß L.
Hallo Logan000,
hat fast geklappt. Einmal SentOn und nicht Sendon
und das Zweite ist, das er nach .save einen Laufzeitfehler bringt. Außerdem kommt die lästige Frage mit "Ein Programm versucht auf Daten von Outlook zuzugreifen....."
Laufzeitfehler -1767702276 (96a300FC)
Fehler beim ausführen der Operation
Code:
With objNewMail
Filename = CStr(.SentOn) & "_" & CStr(.Subject) & ".msg"
.SaveAs ("D:\outlook\" & Filename)
End With
Fällt dir noch was ein??
Gruß
Ralf
PS: Verweis auf Objekt war schon gesetzt.
hat fast geklappt. Einmal SentOn und nicht Sendon
und das Zweite ist, das er nach .save einen Laufzeitfehler bringt. Außerdem kommt die lästige Frage mit "Ein Programm versucht auf Daten von Outlook zuzugreifen....."Laufzeitfehler -1767702276 (96a300FC)
Fehler beim ausführen der Operation
Code:
With objNewMail
Filename = CStr(.SentOn) & "_" & CStr(.Subject) & ".msg"
.SaveAs ("D:\outlook\" & Filename)
End With
Fällt dir noch was ein??
Gruß
Ralf
PS: Verweis auf Objekt war schon gesetzt.
Probiers mal so:
Evtl. hilft dier dieser Link weiter.
Gruß L.
...
.SaveAs "D:\outlook\" & Filename, olMSG
...Außerdem kommt die lästige Frage mit "Ein Programm versucht auf Daten von Outlook zuzugreifen....."
Nun das ist ja auch richtig.Evtl. hilft dier dieser Link weiter.
Gruß L.
mpmmmhhh,
habe ich auch schon probiert, auch
"c:\temp\" & Filename, olMSG
funktioniert nicht.
kompletter Code:
Sub Mails_archivieren()
Dim objOutlook As Outlook.Application
Dim objnSpace As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim objNewMail As Outlook.MailItem
Dim Filename As String
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.Folders("Kerstin").Folders("merken")
For Each objNewMail In objFolder.Items
With objNewMail
Filename = CStr(.SentOn) & "_" & CStr(.Subject) & ".msg"
.SaveAs "c:\temp\" & Filename, olMSG
End With
Next
End Sub
Gruß
Ralf
habe ich auch schon probiert, auch
"c:\temp\" & Filename, olMSG
funktioniert nicht.
kompletter Code:
Sub Mails_archivieren()
Dim objOutlook As Outlook.Application
Dim objnSpace As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim objNewMail As Outlook.MailItem
Dim Filename As String
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objnSpace.Folders("Kerstin").Folders("merken")
For Each objNewMail In objFolder.Items
With objNewMail
Filename = CStr(.SentOn) & "_" & CStr(.Subject) & ".msg"
.SaveAs "c:\temp\" & Filename, olMSG
End With
Next
End Sub
Gruß
Ralf
Hallo,
entschuldige, dass ich dich noch einmal belästige. Ich weiß jetzt woran es liegt. In der Betreff Zeile sind manchmal Hochkomme, Leerzeichen, Fragezeichen usw. Außerdem im Datum und Zeit Punkte und Doppelpunkte.
Das datu und die Zeit habe ich schon angepasst mit Format aber beim Betreff weiß ich nicht wie ich die Leerzeichen und eventuelle Sonderzeichen rauskriegen soll.
Weißt du da was?
Gruß
Ralf
entschuldige, dass ich dich noch einmal belästige. Ich weiß jetzt woran es liegt. In der Betreff Zeile sind manchmal Hochkomme, Leerzeichen, Fragezeichen usw. Außerdem im Datum und Zeit Punkte und Doppelpunkte.
Das datu und die Zeit habe ich schon angepasst mit Format aber beim Betreff weiß ich nicht wie ich die Leerzeichen und eventuelle Sonderzeichen rauskriegen soll.
Weißt du da was?
Gruß
Ralf
Moin
Mit Replace solte das gehen. Etwa so:
Gruß L.
Mit Replace solte das gehen. Etwa so:
...
strSubject = Replace(strSubject," ","") ' Leerzeichen ersetzen
strSubject = Replace(strSubject,"'","") ' Hochkomma ersetzen
usw.
...Gruß L.
Hallo L.,
vielen Dank. Jetzt funktioniert alles.
Einen schönen Gruß aus Bayern
Ralf
vielen Dank. Jetzt funktioniert alles.
Einen schönen Gruß aus Bayern
Ralf
Das ist cool.
Sei doch bitte so nett und setze den Beitrag auf erledigt.
Schönen Gruß zurück vom anderen Ende
L.
Sei doch bitte so nett und setze den Beitrag auf erledigt.
Schönen Gruß zurück vom anderen Ende
L.
