Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

E-Mails in *.msg Format vollautomaitsch aus Outlook 2003 in Ordner exportierern

Mitglied: 32338

32338 (Level 1)

11.07.2006, aktualisiert 10:04 Uhr, 8143 Aufrufe, 2 Kommentare

hallo,

ich suche ein Tool oder Plugin, mit dem ich E-Mails aus Outlook 2003 vollautomatisch (z.b. über einen geplanten Task) im *.msg Format in einen Ordner exportieren oder kopieren kann.
Die Mail muss am Ende im *.msg Format vorliegen, da diese dann von einem anderen Programm weiterverarbeitet wird.
Mitglied: Egbert
11.07.2006 um 10:04 Uhr
Hallo maxpayne3110,

hier ein kleines Codesnippet wie ich das mache, allerdings für einen anderen Zweck deswegen exports und imports.

Die Varialblen usw. müssen natürlich noch deklariert werden.

' 1. Öffnen Mailfolder und BackupMailfolder

'------ COM Objekt Outlook erzeugen
set outlApp = WScript.CreateObject("Outlook.Application")
if Err.Number <> 0 then
return_value = 30
logwrite "Fehler bei CreateObject(Outlook.Application" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

'------ Outlook Namespace setzen
set nmSpace = outlApp.GetNameSpace("MAPI")
if Err.Number <> 0 then
return_value = 31
logwrite "Fehler bei GetNameSpace(MAPI" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

'------ Postfach oeffnen
if InStr(postfach, "BUBU") > 0 then
set pf = nmSpace.Folders("Postfach - BUBU")
else
set pf = nmSpace.Folders(postfach)
end if

if Err.Number <> 0 then
return_value = 32
logwrite "Fehler bei nmSpace.Folders" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

'------ Mailfolder oeffnen
set fld = pf.Folders(mailfolder)
if Err.Number <> 0 then
return_value = 33
logwrite "Fehler bei Folders" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

'------ Backup Mailfolder oeffnen
set fldbck = pf.Folders(backupmailfolder)
if Err.Number <> 0 then
return_value = 33
logwrite "Fehler bei Folders" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

set mItems = fld.Items
cnt = mItems.Count
logwrite "Count der Mails: " & CStr(cnt), 0

'------ Schleife ueber die Emails des Mailfolders
for x = cnt to 1 step -1

'------ check, ob die Emails Attachments besitzt
set mAtts = mItems.item(x).Attachments
if Err.Number <> 0 then
return_value = 35
logwrite "Fehler bei mItems.item..Attachments" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

cntAtt = mAtts.Count
logwrite "Mailname: " & mItems.item(x).subject & " -- Count der Attachments: " & CStr(cntAtt), 0

'------ Besitzt die Email keine Attachments, dann wird die Mail als Textdatei in textdir gespeichert
if cntAtt = 0 then
mItems.item(x).SaveAs textdir & "att_" & CStr(x) & ".txt", 0
if Err.Number <> 0 then
return_value = 36
logwrite "Fehler bei Mail SaveAs" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if
else

'------ Besitzt die Email Attachments, dann werden die Attachments als MSG-Dateien in logdir gespeichert
'------ diese Emails werden wieder als MSG importiert und danach als Textdateien wieder in textdir gespeichert
'------ (man kann Attachments nicht aus einer Email in einen Postfach-Ordner kopieren)

for y = cntAtt to 1 step -1

'-------------- speichern der Attachments als MSG-Dateien
mailfile = logdir & "att_" & CStr(x) & "-" & CStr(y) & ".msg"
mAtts.item(y).SaveAsFile mailfile
if Err.Number <> 0 then
return_value = 37
logwrite "Fehler bei Att SaveAs" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

'-------------- Importieren der gespeicherten Attachments ins Postfach
set newItem = outlApp.CreateItemFromTemplate(mailfile)
if Err.Number <> 0 then
return_value = 38
logwrite "Fehler bei CreateItemFromTemplate" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if
newItem.Save
if Err.Number <> 0 then
return_value = 39
logwrite "Fehler bei Save Mailitem" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

'-------------- Speichern der Mails (Attachments) als Textdatei
newItem.SaveAs textdir & "att_" & CStr(x) & "-" & CStr(y) & ".txt", 0
if Err.Number <> 0 then
return_value = 40
logwrite "Fehler bei SaveAs Mailitem" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

'-------------- Loeschen der Mails (Attachments)
newItem.Delete
if Err.Number <> 0 then
return_value = 41
logwrite "Fehler bei Delete Mailitem" & " --- " & Err.Description & " / " & CStr(Err.Number), 1
Exit Sub
end if

next

end if

next


Gruß
Egbert
Bitte warten ..
Mitglied: 8343
11.07.2006 um 10:04 Uhr
Hi!

Unter www.mailhilfe.de gibt es diverse Tools.

Gruß, Marcus
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Gezippte Mail msg Format
Frage von kellbiddenOutlook & Mail6 Kommentare

OS: Windows 10 Outlook 2016 Hallo zusammen Ich hab eine Frage: Ich möchte div. Mails an einen Kunden senden. ...

Outlook & Mail
Outlook E-Mail Verteiler
Frage von Heinrich-QuerdarOutlook & Mail2 Kommentare

Hallo zusammen, ich bin Mitglied eines Verteilers in unserer Firma zu dem Thema Produktmanagement. Wenn ich nun eine eMail ...

Microsoft Office
Outlook 2013 - E-Mail Markierung
Frage von HKluetschMicrosoft Office7 Kommentare

Guten Morgen :) Ich habe im Outlook folgendes Problem. Ich kann E-Mails ja so markieren das Sie unter den ...

Outlook & Mail
Outlook E-Mail mit Webinhalt
Frage von scanix85Outlook & Mail6 Kommentare

Hallo zusammen, wie kann man folgende Situation lösen: Benutzer bekommt eine E-Mail diese enhält Webinhalte (Bilder), Outlook möchte ins ...

Neue Wissensbeiträge
Windows Server

Windows Server 2016 Suche nicht funktioniert ist ausgegraut Windows Server 2016 Search not work

Erfahrungsbericht von Wano347 vor 12 StundenWindows Server

Hallo Leute, wir haben vor kurzem ein Problem gehabt: Windows Server 2016 frisch installiert. Nach Checkliste konfiguriert (sieht vor ...

Microsoft Office

Microsoft geht nun rechtlich gegen Lizengo vor - Billig Software

Information von takvorian vor 13 StundenMicrosoft Office5 Kommentare

Hallo zusammen, eben auf CRN gefunden, weis nicht ob das schon wer gepostet hat Microsoft verklagt Lizengo Gruß Tak

Firewall
Übernahme von SOPHOS durch Thoma Bravo
Information von Dilbert-MD vor 1 TagFirewall3 Kommentare

Kam die Tage per Newsletter: Zitat: " Das Sophos Board of Directors hat gestern bekanntgegeben, dass die Private-Equity-Investment-Firma Thoma ...

Windows Netzwerk

Ereignis-ID 20226 RasClient Ursachencode 829 VPN Verbindung wird abgebrochen

Anleitung von Hardstyles vor 7 TagenWindows Netzwerk

Hallo zusammen, nach Stundenlanger Analysen und test konnten wir den Fehler Lösen. es geht um folgende Fehler Meldung in ...

Heiß diskutierte Inhalte
Sicherheitsgrundlagen
Was tun, wenn der Chef seine eigenen IT-Regeln nicht durchsetzt?
gelöst Frage von Bl0ckS1z3Sicherheitsgrundlagen22 Kommentare

Hallo Admins, im Zuge der DSGVO haben wir in unserem Unternehmen mit dem Datenschutzbeauftragten ein neues IT-Nutzerhandbuch erstellt. Hier ...

CPU, RAM, Mainboards
Kein Bild mit neuem Mainboard
Frage von Ghost108CPU, RAM, Mainboards20 Kommentare

Hallo zusammen, habe einen PC mit 4 RAM Riegeln, einer Intel CPU 1151 Socket und einem Mainboard Asus B150M-A/M.2 ...

Windows 10
Win 10 - Seltsame popups die nerven
Frage von BigSnakeyeWindows 1019 Kommentare

Hallöchen! An einem Win 10 Notebook habe ich Probleme mit extrem nervigen Popups rechts unten in der Ecke. Dort ...

Windows 10
Windows 10 Workstation zum Musikmachen für ultra-low-latency (ca. 0,7ms)
Frage von psy-tekWindows 1018 Kommentare

Hallo. Ich benutze meinen DAW Rechner hauptsächlich, als Effektgeräte und Klangerzeuger mit sehr kurzen Latenzen. (Damit man gar nicht ...