/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
MAPI, gemme attachment som filer
Fra : Michael Lindgaard


Dato : 08-06-02 13:26

Nogen der har leget med det ?

Jeg er ved at lave et program som med MAPI kal gemmer tilknyttede filer.
Kan godt læse indkommende e-mails og kan godt se antallet af tilknyttede
filer, men kan ikke få dem gemt.

--
Mvh,
Michael Lindgaard
Bil: 2876 7699
http://home19.inet.tele.dk/mlindgaard



 
 
Bjarke Walling Peter~ (08-06-2002)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 08-06-02 20:11

Michael Lindgaard skrev:
> Nogen der har leget med det ?
>
> Jeg er ved at lave et program som med MAPI kal gemmer tilknyttede filer.
> Kan godt læse indkommende e-mails og kan godt se antallet af tilknyttede
> filer, men kan ikke få dem gemt.
[snip]

Jeg har faktisk aldrig arbejdet med MAPI før, men jeg har lige været
inde på MSDN Library og se lidt på MAPI Referencen. Ud fra denne, ser
det ud til at du f.eks. kan bruge denne funktion:

Private Function SaveAttachments(Message As Object, Folder As String)
Dim objAttachments As Object
Set objAttachments = Message.Attachments
If objAttachments Is Nothing Then
SaveAttachments = False
Else
Dim i As Long
Dim Pos As Long
Dim Filename As Long
If Right$(Folder, 1) <> "\" Then
Folder = Folder & "\"
End If
For i = 1 To objAttachments.Count
Filename = objAttachments.Item(i).Name
If Filename <> "" Then
Pos = InStr(Filename, "\")
If Pos = 0 Then
Pos = InStr(Filename, "/")
End If
If Pos <> 0 Then
Filename = Mid$(Filename, Pos + 1)
End If
End If
If Filename = "" Then
Filename = "ATTACHMENT" & CStr(i)
End If
objAttachments.Item(i).SaveToFile Folder & Filename
Next i
SaveAttachments = True
End If
End Function

...
SaveAttachments MyMsg, "C:\My Attachments"
...

Håber det virker! :)

Mvh. Bjarke


--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste