Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 5 su 5

collegare tabella

  1. #1
    L'avatar di John
    John non è in linea Scolaretto
    Ciauz a tutti,
    dovrei collegare una cartella della posta in arrivo di outlook in access. Usando l'opzione collega tabella naturalmente funziona. Il punto è che mi interessano altri campi di outlook. Vi chiedo se sapete se c'è la possibilità di scegliere i campi desiderati settando qualche opzione oppure se si può collegare una cartella della posta in arrivo di outlook anche via codice.
    ciauz
    johnix

  2. #2
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    abilitando in access le librerie di qoutlook puoi pilotare outlook da access ma non conosco i codici vba specifici di outlook

    Ciao
    ℹ️ Leggi di più su dragone bianco ...

  3. #3
    L'avatar di John
    John non è in linea Scolaretto
    Ciauz Dragone, grazie per la risposta,
    Io ho questo codice che però importa la cartella posta in arrivo. secondo te modificandolo è possibile creare un collegamento??
    --------------------------------------------------------------------------------------------

    On Error Resume Next

    Dim strAttachment As String
    Dim strSql As String
    Dim rsMail As DAO.Recordset
    Dim tdf As DAO.TableDef

    Dim Ol_App As New Outlook.Application
    Dim Ol_MAPI As Outlook.NameSpace
    Dim Ol_Folder As Outlook.MAPIFolder
    Dim Ol_Items As Outlook.MailItem
    Dim Ol_Attach As Outlook.Attachment

    Set tdf = CurrentDb.TableDefs("DDTClienti")

    If tdf Is Nothing Then

    strSql = "CREATE TABLE DDTClienti (" & _
    "CreationTime DATE," & _
    "LastModificationTime DATE," & _
    "SenderName CHAR(50)," & _
    "SenderAddress CHAR(50)," & _
    "SentOn DATE," & _
    "Sent YESNO," & _
    "TO CHAR(255)," & _
    "CC CHAR(255)," & _
    "BCC CHAR(255)," & _
    "UnRead YESNO," & _
    "ReceivedByName CHAR(50)," & _
    "ReceivedOnBehalfOfName CHAR(100)," & _
    "ReceivedTime DATE," & _
    "ConversationTopic CHAR(255)," & _
    "Subject CHAR(255)," & _
    "Categories CHAR(50)," & _
    "HTMLBody MEMO," & _
    "Size Long," & _
    "Attachments CHAR(255));"
    CurrentDb.Execute strSql

    End If

    Set rsMail = CurrentDb.OpenRecordset("DDTClienti")
    Set Ol_MAPI = Ol_App.GetNamespace("MAPI")
    Set Ol_Folder = Ol_MAPI.GetDefaultFolder(olFolderInbox)


    For Each Ol_Items In Ol_Folder.Items

    For Each Ol_Attach In Ol_Items.Attachments

    strAttachment = strAttachment & Ol_Attach.DisplayName & vbCrLf

    Next Ol_Attach


    With rsMail

    .AddNew
    .Fields("BCC") = Ol_Items.BCC
    .Fields("Categories") = Ol_Items.Categories
    .Fields("CC") = Ol_Items.CC
    .Fields("ConversationTopic") = Ol_Items.ConversationTopic
    .Fields("CreationTime") = Ol_Items.CreationTime
    .Fields("HTMLBody") = Ol_Items.HTMLBody
    .Fields("LastModificationTime") = Ol_Items.LastModificationTime
    .Fields("ReceivedByName") = Ol_Items.ReceivedByName
    .Fields("ReceivedOnBehalfOfName") = Ol_Items.ReceivedOnBehalfOfName
    .Fields("ReceivedTime") = Ol_Items.ReceivedTime
    .Fields("SenderName") = Ol_Items.SenderName
    .Fields("Sent") = Ol_Items.Sent
    .Fields("SentOn") = Ol_Items.SentOn
    .Fields("SenderAddress") = Ol_Items.Reply.Recipients.Item(1).Address
    .Fields("Size") = Ol_Items.Size
    .Fields("Subject") = Ol_Items.Subject
    .Fields("TO") = Ol_Items.To
    .Fields("UnRead") = Ol_Items.UnRead
    .Fields("Attachments") = strAttachment
    .Update

    End With

    strAttachment = ""

    Next Ol_Items

    rsMail.Close


    Set rsMail = Nothing
    Set tdf = Nothing

    Set Ol_Attach = Nothing
    Set Ol_Items = Nothing
    Set Ol_Folder = Nothing
    Set Ol_MAPI = Nothing
    Set Ol_App = Nothing
    --------------------------------------------------------

  4. #4
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Quote Originariamente inviato da John
    Ciauz Dragone, grazie per la risposta,
    Io ho questo codice che però importa la cartella posta in arrivo. secondo te modificandolo è possibile creare un collegamento??
    Non è possibile perche il codice per creare un collegamento è totalmente diverso.
    Il codice che mi hai postato crea una tabella vuota e poi la riempe leggendo i dati da outlook.

    Ciao
    ℹ️ Leggi di più su dragone bianco ...

  5. #5
    L'avatar di John
    John non è in linea Scolaretto
    Ok grazie comunque
    ciao
    john

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Collegare Tabella DBF IV con ADOX
    Da Fabio85 nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 30-04-2008, 17:45
  2. Microsoft Access: collegare tabella da DB .eft
    Da testaragno nel forum Microsoft Access
    Risposte: 9
    Ultimo Post: 19-11-2007, 18:07
  3. collegare 1 tabella di un database esterno
    Da daui nel forum Microsoft Word
    Risposte: 11
    Ultimo Post: 19-11-2006, 20:56
  4. collegare tabella excel ad access
    Da Steccia nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 10-09-2005, 15:47
  5. collegare una tabella
    Da sly185 nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 19-04-2005, 12:53