Discussion :

[Tintin027171]

Bonjour

je souhaite envoyer un email toujours a la meme adresse en cliquant sur un bouton dans un formulaire

j ai fait cela sa fonctionnne mais ca ouvre ma messagerie est je doit ensuite l envoyer ensuite

est il possible d 'envoyer l email sans confirmation ?

merci

[Tintin027171]

je souhaiterai aussi que le nom de OM qui est dans la liste deroulante apparaisse dans le message ou le corp de l email

merci

[Tintin027171]

LE CODE

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
27
28
29
30
31
32
33
34
Private Sub Commande22_Click()
 
    Dim olApp As Object
    Dim olMail As Object
 
    On Error Resume Next
    Set olApp = GetObject(, "Outlook.Application")
 
    If olApp Is Nothing Then
        Set olApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
 
    Set olMail = olApp.CreateItem(0)
 
    With olMail
        .To = "patrick-externe.roussigne@arabellesolutions.com"
        .Subject = "Confirmation de la finalisation de la mise à jour des activités - " & Me.cboom.Column(1)
 
        .Body = "Bonjour Emma," & vbCrLf & vbCrLf & _
                "Je te remercie de bien vouloir prendre connaissance et de prendre en compte cette mise à jour ." & vbCrLf & vbCrLf & _
                "Cordialement,"
 
        '.Display        'Affiche le mail
        .Send          'Décommente cette ligne pour envoyer automatiquement
    End With
 
    MsgBox "L'e-mail a été envoyé avec succès.", vbInformation, "Confirmation"
 
    Set olMail = Nothing
    Set olApp = Nothing
 
 
End Sub

[User]

Bonjour,

Oui je voulais vous le proposer de passer par le VBA et Outlook.

Alors si ça marche comme ça tant mieux

[Tintin027171]

merci pour votre , cela m a rendu bien service