Mail Outlook préparé par Access, modifié par l'utilisateur puis envoyé et tracé dans historique
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 ? :ptdr:
Code:
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 |