So funktioniert JustAnswer:

  • Fragen Sie einen Experten
    Tausende Experten in über 200 Kategorien.
  • Erhalten Sie eine professionelle Antwort
    Per E-Mail oder sofortiger Benachrichtigung, während Sie auf unserer Website warten.
    Stellen Sie ggf. weitere Anschlussfragen.
  • 100%ige Zufriedenheit garantiert
    Bewerten Sie die erhaltene Antwort.

Stellen Sie Ihre Frage an IT-Fachinformat...

IT-Fachinformatiker
IT-Fachinformatiker, Systemadministrator
Kategorie: Allgemein
Zufriedene Kunden: 6838
Erfahrung:  Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
32504664
Geben Sie Ihre Frage in der Kategorie Programmierung hier ein
IT-Fachinformatiker ist jetzt online.

Wie kann ich auf den Anhang der markierten eMail zugreifen

Kundenfrage

Wie kann ich auf den Anhang der markierten eMail zugreifen um sie zu speichern?

Am liebsten würde ich zur Lösung dieses Problems VB6 und das Outlook View Control in einer Windows Applikation einsetzen.

Ich verwende Outlook 2003

Sub oTest()

Dim objOutlook As Application
Dim objNs As NameSpace
Dim objMailordner As MAPIFolder
Dim objEmail As MailItem
Dim objSelect As Outlook.Selection
Dim oItem As Object
Dim i As Integer
Dim j As Integer
Dim sPath As String

Set objOutlook = New Application
Set objNs = objOutlook.GetNamespace("MAPI")
Set objMailordner = objNs.GetDefaultFolder(olFolderInbox)

Set objSelect = objOutlook.ActiveExplorer.Selection '(1)
Set objItem = objSelect.item(1)

Const olTXT = 0

sPath = "c:\test"
'********************************************************************************************
'save all attachements to C:\test
i = 1
j = objMailordner.Items.Count
Do While j > 0

Set objMail = objMailordner.Items.item(j)

' Auf Anhang prüfen und evtl. speichern
With objMail.Attachments
i = .Count
Do While (i > 0)
Set oAnhang = .item(i)

' Anhang unter entsprechendem Namen speichern.
If Right(oAnhang, 3) = "xml" Then
oAnhang.SaveAsFile sPath & "\" & oAnhang.DisplayName
End If
i = i - 1

Loop
End With
' Nachricht speichern
objMail.SaveAs sPath & CStr(i) & "_" & _
objMail.Subject & ".txt", olTXT
j = j - 1
Loop

'all attachements saved

'**********************************************************************************************
Here 's the question - How can I store the attachements of this eMail on the harddisk?

'**********************************************************************************************
'**********************************************************************************************
'save the attachements of the selected eMail
If objSelect.Count > 0 Then
For Each objItem In objSelect

MsgBox objItem.Subject 'Subject of the selected eMail
'How can I store the attachements of this eMail on the harddisk?

Next
End If
Gepostet: vor 6 Jahren.
Kategorie: Programmierung
Experte:  IT-Fachinformatiker hat geantwortet vor 6 Jahren.
Hallo,

unter welcher Windows Version arbeiten Sie denn genau? Das grundsätzliche Problem ist, das Sie gerade auf markierte Mails im Zweifel nicht zugreifen können das heisst nicht das es nicht irgendwie gehen würde aber ich denke mit dem veralteten VB 6 kommen Sie hier nur schwer ans Ziel. Sie sollten eher eine Lösung in Richtung Outlook 2003 VBA finden. Ein Ansatz dazu findet sich hier:

http://www.benutzer.de/Outlook_2003_-_Anh%C3%A4nge_neuer_Mails_per_VBA_automatisch_speichern.html

Ich denke dieser Ansatz könnte Ihnen weiterhelfen und hier noch etwas, wie Sie auf markierte Mails zu greifen können:

http://www.wer-weiss-was.de/theme161/article4543883.html

Der Einsatz von VB6 ist weder zu empfehlen noch ist es sinnvoll, da VB6 völlig veraltet ist insofern sollten Sie es in VBA oder in VB.NET lösen nicht in VB6. Schauen Sie sich die Lösungen einmal an falls Sie es dennoch in VB6 lösen wollen, müssen Sie Outlook als Objekt in VB6 deklarieren dabei ist es wichtig das Sie unter Extras > Verweise den Haken bei Outlook/Office Object Library gesetzt haben.

Gruss Günter


Bekannt aus:

 
 
 
„[...]mehr als Zehntausend Experten weltweit; 1500 davon in Deutschland. Acht Jahre nach dem Start ist das [...] Online-Unternehmen mit seinen 90 Mitarbeitern die größte Web-Seite für das Vermitteln von Experten von Anwälten über Ärzte bis hin zu Universitätsprofessoren.“
„Wer eine fachmänische Lösung für ein medizinisches, rechtliches oder technisches Problem sucht, kann das jetzt auch im Internet tun. Lebenshilfe auf die schnelle, unkomplizierte und vor allem erschwingliche Art bietet die Seite www.justanswer.de. Etwa 1500 Experten stehen per Mail für Fragen zu ca. 200 Fachgebieten rund um die Uhr zur Verfügung."
„Rat gewünscht? Rechtliche, medizinische oder allgemeine Fragen beantworten Experten unter www.justanswer.de."
„JustAnswer, die weltweit führende Online-Plattform für Expertenfragen und -antworten, bietet ab sofort noch mehr Sicherheit und Qualität für Verbraucher."
„Ob Vorbereitung, Notfall oder Reklamation nach dem Urlaub - JustAnswer bietet jederzeit schnelle, kompetente Antworten"
„Die Online-Plattform JustAnswer bringt Ratsuchende und Experten in über 200 Fachgebieten zusammen."
 
 
 

Was unsere Besucher über uns sagen:

 
 
 
  • Sehr schnelle und kompetente Antwort, die für mich bares Geld bedeutet. Vielen Dank! S.Stober K.
< Zurück | Weiter >
  • Sehr schnelle und kompetente Antwort, die für mich bares Geld bedeutet. Vielen Dank! S.Stober K.
  • Herzlichen Dank! Hab durch Ihre Antwort viel Geld gespart! Ben R. Deutschland
  • Sehr schnelle und kompetente Hilfestellung. Besonders für mich als Laien wurde alles sehr verständlich erklärt. Gerne wieder! Rosengl Bad Tölz
  • Vielen Dank für die schnelle und gute Beratung. Sie haben uns gut weitergeholfen. Wir kommen gerne wieder auf Sie zu. Birgit H. Kempten
  • Hervorragende und außerordentlich liebenswürdige Hilfe! Ich werde bei Bedarf bestimmt wieder auf JustAnswer zurückgreifen und bin sehr dankbar, dass es so etwas gibt! Dr. Gert Richter Verl
  • Danke für die schnelle Hilfe. Sehr schön, auch an einem Sonnabend ist jemand zu erreichen. Janine Gaus Bielfeld
  • Für mich persönlich war die Antwort sehr hilfreich. Vielen Dank an den Experten! Daniela H. Dortmund
 
 
 

Lernen Sie unsere Experten kennen:

 
 
 
  • RASchiessl

    RASchiessl

    Rechtsanwalt

    Zufriedene Kunden:

    9762
    Vertragsanwalt des Bayerischen Wohnungs- und Grundeigentümerverbandes Regensburg
< Zurück | Weiter >
  • http://ww2.justanswer.com/uploads/CH/chiessl/2015-7-17_7493_resizedimage.64x64.jpg Avatar von RASchiessl

    RASchiessl

    Rechtsanwalt

    Zufriedene Kunden:

    9762
    Vertragsanwalt des Bayerischen Wohnungs- und Grundeigentümerverbandes Regensburg
  • http://ww2.justanswer.com/uploads/RE/rechtso/2011-4-16_115947_P10100052.64x64.JPG Avatar von ra-huettemann

    ra-huettemann

    Rechtsanwalt

    Zufriedene Kunden:

    11690
    Staatsexamen Zulassung als Rechtsanwalt
  • http://ww2.justanswer.com/uploads/raschwerin/2009-12-08_112115_RA_Steffan_-_neu_Large.jpg Avatar von raschwerin

    raschwerin

    Rechtsanwalt

    Zufriedene Kunden:

    8548
    Rechtsanwalt
  • http://ww2.justanswer.com/uploads/TR/troesemeier/2012-8-30_105621_IMG4178.64x64.JPG Avatar von Tobias Rösemeier

    Tobias Rösemeier

    Rechtsanwalt

    Zufriedene Kunden:

    7167
    seit 1995 als selbständiger Rechsanwalt tätig.
  • http://ww2.justanswer.com/uploads/PR/Prof.Nettelmann/2012-4-12_9146_Prof.AchimNettelmann2.64x64.jpg Avatar von Prof.Nettelmann

    Prof.Nettelmann

    Steuerberater

    Zufriedene Kunden:

    3755
    HochschullehrerSteuerberaterDipl.-Kfm.
  • http://ww2.justanswer.com/uploads/SC/schraubendreher/2012-9-27_152628_1.64x64.jpg Avatar von Schraubendreher

    Schraubendreher

    Kfz-Mechaniker

    Zufriedene Kunden:

    2174
    abg. Ausbildung. Freie Werkstatt. Typen offen. Diganose aller Fabrikate, besonders BMW
 
 
 

Ähnliche Fragen in der Kategorie Programmierung