Bonjour,
avec l'aide du code de ce site (merci les gars) et mes lectures, j'ai adapté un bout de code qui me permet au départ d'une forme d'Access 2010 de me préparer un mail standard avec l'adresse, un sujet générique et plein de choses que je pourrais encore ajouter. Comme j'utilise .Display, ce mail pré-rempli reste affiché dans Outlook et je peux le compléter à ma guise avec des informations plus spécifiques, notamment en adaptant le sujet. Après, j'appuie sur 'Send' dans Outlook et il est correctement envoyé dans son état final.
Après l'instruction .Display je voudrais récupérer le titre définitif (et peut-être d'autres choses) pour archiver une trace de l'envoi dans ma base de données.
Malheureusement, on dirait que les choses sont devenues 'découplées', qu'Access a continué seul avec les vielles valeurs. Dans l'instruction Debug.Print MonMessage.Subject c'est toujours l'ancienne valeur.
Si je ferme le message dans Outlook au lieu d'utiliser send dans ce cas MonMessage.Subject est visible dans l'explorateur de variable, mais je n'arrive par à le récupérer --> server distant not available err 462
Comment pouvoir récupérer les des derniers changement du mail dans Access afin de les mémoriser et si possible d'envoyer directement par Send au départ d'Outlook ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Private Sub email_Click() Din Str As String Dim MonMessage As Object Dim MonOutlook As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.To = Forms!Ami!Email_Adr.Value MonMessage.Subject = "Sujet standard" MonMessage.Body = "Texte du message" & vbCrLf MonMessage.Display ' MonMessage.Send ' MonOutlook.Quit Str = MonMessage.Subject Debug.Print MonMessage.Subject Set MonMessage = Nothing Set MonOutlook = Nothing End Sub
Partager