none
Konverzia email mena na email adresu RRS feed

  • Dotaz

  • Dobrý deň,

    mám kód na import dát do databázy:

    Set Import_email = CurrentDb.OpenRecordset("SELECT * FROM [Import_email]") Set myOlApp = CreateObject("Outlook.Application") Set mpfInbox = myOlApp.GetNameSpace("MAPI") Set odoslane = mpfInbox.GetDefaultFolder(6).Parent.Folders("Sent") Set prijate = mpfInbox.GetDefaultFolder(6) For Each oAccount In myOlApp.Session.Accounts If oAccount = "xxxx@xxxxxxxxxx.sk" Then For i = 1 To odoslane.Items.Count Set obj = odoslane.Items.Item(i) Import_email.AddNew Import_email![Cas_importu] = Now Import_email![From_to] = obj.To Import_email![Body] = obj.Body Import_email![Subject] = obj.Subject Import_email![Received_time] = obj.ReceivedTime Import_email![emailove_konto] = "Odoslane z uctu: " & oAccount Import_email.Update Next End If

    Potrebujem docieliť, aby riadok:

    Import_email![From_to] = obj.To

    zapísal plnú emailovú adresu a nie iba meno typu "Alena Priezvisková".

    Ďakujem vopred za odpoveď.

    pondělí 25. března 2019 17:36

Odpovědi

  •         For Each sentmail In odoslane.Items
                For Each r In sentmail.Recipients
                    MsgBox r.Name
                    MsgBox r.Address
                Next
            Next

    (ber to jako postouchnuti, ne jako vycerpavajici odpoved!)

    hlavni poznatek pro tebe je, ze recipients jsou KOLEKCE. Dalsi pak, ze adresa nemusi byt jen SMTP ...

    MP


    pondělí 25. března 2019 20:51
    Moderátor

Všechny reakce