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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 92630
Url: https://administrator.de/contentid/92630
Ausgedruckt am: 23.11.2024 um 05:11 Uhr
8 Kommentare
Neuester Kommentar
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.
