Code VBA pour l'envoi d'un mail

Version imprimable

16/07/2010, 08h31
majudis

Code VBA pour l'envoi d'un mail

Bonjour,

J'aurais voulu savoir si il était possible de créer un code derrière un bouton pour que cela puisse envoyer un mail ?

Je m'explique :

Sur un formulaire mettre un champ "OBJET" un champ "DESTINATAIRE" et un champ "DESCRPITION" à remplir par l'utilisateur.

Une fois ces trois champs remplies, on clique sur le bouton ENVOYER, et le contenu de ces trois champs est envoyer par mail.

Est-ce que cela est possible ?

Si oui auriez-vous vous un lien vers un tuto pour que je puisse comprendre.

Un grand merci d'avance
16/07/2010, 09h31
Psychopathe

Un début de réponse...

http://access.developpez.com/faq/?page=Outlook#outlook

Bonjour,

Dans la faq Access tu as plusieurs éléments traitant de ce sujet:
http://access.developpez.com/faq/ind...echercher=mail

Pour ma part, j'utilise généralement la commande SendObject.
Places une procédure dans un module de ton application:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub ap_SendMail(Optional ByVal sTO As String, Optional sCC As String, Optional ByVal sObj As String, Optional ByVal sMsg As String, Optional ByVal blnEdit As Boolean = True)
'___________________________________________________________________________
'Objectif   :générer un eMail
'Paramètres :
'       sTO As String               destinataires
'       sCC As String               destinataires en copie
'       sObj As String              objet
'       sMsg As String              message
'       blnEdit As Boolean = True   ouvrir le message
'Commentaires   :   suppose un client de messagerie correctement configuré
'                   la syntaxe des destinataires doit être conforme à celles acceptée par le client de messagerie
'                   Sous Outlook, pour éviter la fenêtre de confirmation d'accès par outil extérieur,
'                   mieux vaut mettre blnEdit à True
'___________________________________________________________________________
    On Error Resume Next
    DoCmd.SendObject acSendNoObject, , , sTO, sCC, , sObj, sMsg, blnEdit
 
End Sub

Ensuite, derrière ton bouton, il te suffit d'appeler cette procédure, en fournissant dans le paramètre sMsg un texte contenant les valeurs de tes 3 champs.
Quelque chose du genre

Code:

1
2
3
4
5
6
Dim sMsg As String
 
sMsg = " Champ N°1 = " & Me!Champ1  & vbCrLf & _
       " Champ N°2 = " & Me!Champ2 & vbCrLf & _
       " Champ N°3 = " & Me!Champ3 & vbCrLf
ap_SendMail "test@test.fr", "", "mon message", sMSg, True

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim MonOutlook As Object
Dim MonMessage As Object
 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
MonMessage.To = "principal@societe.fr"
MonMessage.CC = "chef@machin.com;directeur@chose.com"
MonMessage.BCC = "un.copain@supermail.com;une-amie@hotmail.com"
MonMessage.Attachments.Add "C:\test.doc"
MonMessage.Subject = "test envoi"
MonMessage.Body = "Bonjour, " & Chr(10) & "Veuillez trouvre ci-joint " & Me.Texte16 & Chr(10) & "Cordialement" 
MonMessage.Send
Set MonOutlook = Nothing

a mettre derrière ton bouton de commande avec

Code:

me.texte16

comme textbox dans le formulaire où l'utilisateur pourra écrire ce qu'il veut
Sur le même principe à faire si on veut pour le sujet ou les destinataires

bonne journée

Citation:

Envoyé par mout1234

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub ap_SendMail(Optional ByVal sTO As String, Optional sCC As String, Optional ByVal sObj As String, Optional ByVal sMsg As String, Optional ByVal blnEdit As Boolean = True)
'___________________________________________________________________________
'Objectif   :générer un eMail
'Paramètres :
'       sTO As String               destinataires
'       sCC As String               destinataires en copie
'       sObj As String              objet
'       sMsg As String              message
'       blnEdit As Boolean = True   ouvrir le message
'Commentaires   :   suppose un client de messagerie correctement configuré
'                   la syntaxe des destinataires doit être conforme à celles acceptée par le client de messagerie
'                   Sous Outlook, pour éviter la fenêtre de confirmation d'accès par outil extérieur,
'                   mieux vaut mettre blnEdit à True
'___________________________________________________________________________
    On Error Resume Next
    DoCmd.SendObject acSendNoObject, , , sTO, sCC, , sObj, sMsg, blnEdit
 
End Sub

Ensuite, derrière ton bouton, il te suffit d'appeler cette procédure, en fournissant dans le paramètre sMsg un texte contenant les valeurs de tes 3 champs.
Quelque chose du genre

Code:

1
2
3
4
5
6
Dim sMsg As String
 
sMsg = " Champ N°1 = " & Me!Champ1  & vbCrLf & _
       " Champ N°2 = " & Me!Champ2 & vbCrLf & _
       " Champ N°3 = " & Me!Champ3 & vbCrLf
ap_SendMail "test@test.fr", "", "mon message", sMSg, True

cette fonction est très bien ...
est-il possible d'ajouter une pièce jointe contenu dans l'enregistrement en cours comme pièce jointe dans le mail ?
merci