Préparation E-mail via Access
Bonjour,
J'ai cherché afin de dénicher les lignes de code me permettant de préparer un courriel déclanché par Access sans l'envoyer avec Outlook.
Pour être plus claire, à l'aide d'un déclencheur et de variables provenant d'access, je veux que la fonction prépare un courriel (objet, corp de texte, pièce jointe), ouvre la fenêtre "Nouveau message" pour ainsi laissé à l'utilisateur le loisirs de sélectionner ses contacts auxquelles il veut envoyer le courriel via l'interface Outlook pour ensuite l'envoyer
Voici le code que j'ai présentement, dans un module Access, qui prépare le courriel et qui l'envoie à un contact spécifique sans ouvrir la fenêtre "Nouveau message":
sub preparer_courriel()
Dim Recipient As String
Dim Subject As String
Dim Body As String
Dim Attach As Variant
' --------------------------
Dim I As Integer
Dim oEmail As Outlook.MailItem
Dim appOutLook As Outlook.Application
' créer un nouvel item mail
Set appOutLook = New Outlook.Application
Set oEmail = appOutLook.CreateItem(olMailItem)
' les paramètres
Recipient = "xxxxx@xxxx.com"
Subject = "Test"
Body = "Test test test"
Attach = "C:\xxxxxxx\xxxxx\xxxxxx.xls"
oEmail.To = Recipient
oEmail.Subject = Subject
oEmail.Body = Body
If Not IsMissing(Attach) Then
If TypeName(Attach) = "String" Then
' s'il y a des pièces jointes
oEmail.Attachments.Add Attach
Else
For I = 0 To UBound(Attach) - 1
oEmail.Attachments.Add Attach(I)
Next
End If
End If
' envoie le message
oEmail.Send
' détruit les références aux objets
Set oEmail = Nothing
Set appOutLook = Nothing
End Sub
Merci de votre aide !
SimR
Répondre avec citation
Partager