waldgnarf
May 17, 2010
view5529
view1
0
Goto Top

Vb.net Mail Attachment

GermansolvedQuestionVisual StudioDevelopment

Hallo, ich versuche den Anhang einer Mail zu speichern.

POPCLI = POP3-Client , MIMMAS = Aktuelle Mailmassage, Integer A = Zahl der Massage:
Dim MIMMAS As MIMEParser.Message = POPCLI.GetMessage(A, False)

If MIMMAS.Attachments.Count > 0 Then

                For Z As Integer = 1 To MIMMAS.AttachmentCount

                    Dim ATTACH As MIMEParser.Attachment = MIMMAS.GetAttachment(Z)
                    Dim FSFCAS As FileStream = File.Create("C:/" & ATTACH.ContentFileName)  

                    'hier kommt der Fehler: Directory not found Exeption was unhandled  
                    'Could not find a part of the path 'C:\'.  


                    Dim ATTDEC() As Byte
                    ATTDEC = ATTACH.DecodedAttachment
                    FSFCAS.Write(ATTDEC, 0, ATTDEC.Length)
                    MsgBox("'" & ATTACH.ContentFileName & "' wurde gespeichert!")  
                    FSFCAS.Close()

                Next
End If



Danke schonmal im vorraus für jede Hilfe!

Grüße waldgnarf
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 142996

Url: https://administrator.de/contentid/142996

Printed on: April 19, 2024 at 10:04 o'clock

1 Comment
Goto Top
Member: waldgnarf
waldgnarf May 22, 2010 at 14:26:38 (UTC)
Goto Top
Hallo

Dim ATTACH As New List(Of MIMEParser.Attachment)
                For Z As Integer = 1 To MIMMAS.Attachments.Count
                    Dim STRNAM As MIMEParser.Attachment = MIMMAS.GetAttachment(Z)
                    MsgBox(STRNAM.ContentFileName.ToString)
                Next

Will ich nur den Namen vom Mailanhang wiedergeben kommt die Fehlermeldung:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.


Dim ATTACH As New List(Of MIMEParser.Attachment)
                For Z As Integer = 1 To MIMMAS.Attachments.Count -1
                    Dim STRNAM As MIMEParser.Attachment = MIMMAS.GetAttachment(Z)
                    MsgBox(STRNAM.ContentFileName.ToString)
                Next

und mit "For Z As Integer = 1 To MIMMAS.Attachments.Count -1" kommt:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Erstellen sie eine Objectinstanz mit dem Schlüsselwort "new".

Bitte helft mir!
Gruß waldgnarf
GermansolvedQuestionVisual StudioDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment