Auf E-Mail Attachments zu greifer per MAPI

[PsychoSam]

Hallo
kann mir jemand sage wie man per MAPI Control Attachments in einen beliebigen Ordner speichern kann?
ich hab nur zum senden gefunden , aber nicht zum empfangen
Danke im Voraus
mfg

 

[PsychoSam]

weiß denn nimand rat?

 

[Andreas Tanke]

Hallo Forum,
auch ich bin wie der OP auf der Such nach einer Möglichkeit EmailAttachments auf meiner Festplatte zu speichern.
Wenn ich wie folgt drauf zugreife,

With MAPISession1
      .DownLoadMail = True
      .UserName = "eMailUser"
      .Password = "eMailPWD"
      .SignOn
      MAPIMessages1.SessionID = .SessionID
    End With
    With MAPIMessages1
      .Fetch
      For i = 1 To .MsgCount
        .MsgIndex = i - 1
        If .MsgSubject = "eMailBetreff" Then
	  .MsgIndex = Index
          For i = 0 To 50000
          Next i
          MsgBox ("hier muss ich noch irgendwie abwarten bis die attachments geladen sind (AttachmentCount)")
          For i = 0 To .AttachmentCount - 1 [COLOR=green]'Stelle1
            .AttachmentIndex = i
            zielDatei = Right(.AttachmentPathName, Len(.AttachmentPathName) - posPfadTrenner)
            posPfadTrenner = InStrRev(.AttachmentPathName, "\")
            FileCopy .AttachmentPathName, "C:\test\" & zielDatei
          Next i
          Exit For
        End If
      Next i
    End With
    MAPISession1.SignOff

gibt es an der STelle 1 ein Problem, das die Attachments erst nach einiger Wartezeit verfügbar sind(im Debugmode, per Pause kann ich erst nach einiger Zeit drauf zugereifen). vorher ist AttachmentCount=0.
Deswegen musste ich auch diese dämliche Schleife einbauen.
Wenn also jemand ne Idee hat wie ich das ändern kann, wäre ich dankbar.

gruß Andreas