abenteur
Goto Top

Outlook Access VBA, Absender nicht erkannt

Hallo Zusammen,

folgende Code:

Option Compare Database
Option Explicit

Public Sub TestAccessDB_Outlook()


    Dim db As DAO.Database, rs As DAO.Recordset
    Dim objOutlook As Outlook.Application, objNameSpace As Outlook.NameSpace
    Dim objMailordner As Outlook.MAPIFolder
    Dim objGAINMailordner As Outlook.MAPIFolder
    Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items
    Dim objEMail As Outlook.MailItem
    Dim intCtr As Integer
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM tbl_Email_Log;")  
    Set objOutlook = New Outlook.Application
    Set objNameSpace = objOutlook.GetNamespace("MAPI")  
    Set objMailordner = objNameSpace.GetDefaultFolder(olFolderInbox)
    Set objGAINMailordner = objMailordner.Folders("VBATest")  
    Set objMail = objGAINMailordner.Items
 
    For Each objEMail In objMail
        rs.AddNew
        rs.Fields("Betreff") = objEMail.Subject  
        rs.Fields("AnzAnhaenge") = objEMail.Attachments.Count  
        rs.Fields("EmailAn") = objEMail.ReceivedByName  
        rs.Fields("Erhalten") = objEMail.ReceivedTime  
        rs.Fields("EmailVon") = objEMail.ReplyRecipientNames  
        rs.Fields("EmailBCC") = objEMail.BCC  
        rs.Fields("EmailCC") = objEMail.CC  
        rs.Fields("EmailInhalt") = objEMail.Body  
        rs.Update
    Next objEMail
    
    For intCtr = 1 To objGAINMailordner.Items.Count
        For Each objAttachment In objGAINMailordner.Items(intCtr).Attachments
            objAttachment.SaveAsFile "C:\Users\user\Documents\" & objAttachment.FileName  
            
        Next objAttachment
    Next intCtr
    
    Forms!frm_Test.txt_Test = Forms!frm_Test.txt_Test & "Kein E-Mail" & vbNewLine  
        
    Set objAttachment = Nothing
    Set objMail = Nothing
    Set objMailordner = Nothing
    Set objGAINMailordner = Nothing
    Set objNameSpace = Nothing
    objOutlook.Quit
    Set objOutlook = Nothing

End Sub

Es funktioniert fast einwandfrei, in der Datenbank/Tabelle die Absender (EmailVon) nicht erscheint:

unbenannt

Habt Ihr ne Idee, warum die Absender nicht erkannt wird?

Content-Key: 372079

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

Ausgedruckt am: 19.03.2024 um 06:03 Uhr

Mitglied: Pjordorf
Pjordorf 24.04.2018 aktualisiert um 18:23:06 Uhr
Goto Top
Hallo,

Zitat von @abenteuR:
Habt Ihr ne Idee, warum die Absender nicht erkannt wird?
Was steht denn im Feld objEMail.ReplyRecipientNames drin wenn du im Einzelschritt (F8) dein VBA debuggst?

Gruß,
Peter
Mitglied: 136037
136037 24.04.2018 aktualisiert um 21:21:35 Uhr
Goto Top
Weil ReplyRecipientNames wie der Name schon vermuten lässt ein Array ist ,face-smile. Also per Schleife einen String draus machen z.B. mit Komma getrennt.
Mitglied: abenteuR
abenteuR 25.04.2018 um 08:28:21 Uhr
Goto Top
Hallo Peter,

vba

Es ist also "leer"

VG
Peter
Mitglied: abenteuR
abenteuR 25.04.2018 um 08:30:36 Uhr
Goto Top
Ich werde es versuchen, danke für den Tipp.
Aber... warum funktioniert bei allen anderen richtig und nur hier nicht?`

VG
Peter
Mitglied: 136037
136037 25.04.2018 aktualisiert um 09:33:52 Uhr
Goto Top
Nimm Sendername das enthält den Sendernamen den du ja offensichtlich (Feld "EMailVon") haben willst.
Und es sei dir gesagt das eine Mail keinen Sendernamen haben muss, das ist optional!!
Mitglied: abenteuR
abenteuR 25.04.2018 um 09:58:05 Uhr
Goto Top
Mit Sendername hat funktioniert wie ich das haben wollte face-smile

Tausend Dank!
Mitglied: Pjordorf
Pjordorf 25.04.2018 um 10:01:31 Uhr
Goto Top
Hallo,

Zitat von @abenteuR:
Mit Sendername hat funktioniert wie ich das haben wollte face-smile
Hätte man beim Debuggen schon herausfinden können das Namen manchmal täuschen können. face-smile Schön wenns jetzt läuft.

Gruß,
Peter