Bonjour
J’ai un petit problème si on peut dire avec la réception des informations à partir d’un email avec outlook
J’ai un exemple de réception qui marche :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
marequete = "INSERT INTO BoiteDeRéception (SUJET,TO,ENVOYELE,RECULE,Body,Size,CC) VALUES ('" _
& IIf(Not IsNull(nouvsujet), nouvsujet, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).TO), objOLfolder.Items(I).TO, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).SentOn), objOLfolder.Items(I).SentOn, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).ReceivedTime), objOLfolder.Items(I).ReceivedTime, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).Body), objOLfolder.Items(I).Body, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).Size), objOLfolder.Items(I).Size, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).CC), objOLfolder.Items(I).CC, "") & "'" _
& ");"
Les information son enregistre dans la table BoiteDeRéception

Mais si je veut le champ CCi et le champ de pièce jointe Attachments ca ne marche pas
Et voila mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
marequete = "INSERT INTO BoiteDeRéception (SUJET,TO,ENVOYELE,RECULE,Body,Size,CC,CCi,Attachments) VALUES ('" _
& IIf(Not IsNull(nouvsujet), nouvsujet, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).TO), objOLfolder.Items(I).TO, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).SentOn), objOLfolder.Items(I).SentOn, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).ReceivedTime), objOLfolder.Items(I).ReceivedTime, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).Body), objOLfolder.Items(I).Body, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).Size), objOLfolder.Items(I).Size, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).CC), objOLfolder.Items(I).CC, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).BCC), objOLfolder.Items(I).BCC, "") & "'" _
& ",'" & IIf(Not IsNull(objOLfolder.Items(I).Attachments), objOLfolder.Items(I).Attachments, "") & "'" _
& ");"
DoCmd.RunSQL marequete
donc Comment récupère le champ de pièce jointe ,cci et aussi du l’expéditeur
Et merci d’avance