Re : envoyer contenu usfermon par email
Bonjour,
ci dessous un code trouvé sur le forum que j'ai adapté.
le commandbutton3( sur userform3) est le bouton d'envoi du mail, je n'arrive pas a faire apparaitre les adresses mail dans to de outlook.
De plus, je souhaiterai que le mail parte immédiatement apres avoir appuyé sur commandbutoon3, mais je n'arrive pas.
merci pour votre aide
Private Sub CommandButton3_Click()
Dim LigF As Long, Niveau As Integer
Dim ApplicOutlook As Object
Dim ElémentCourrier As Object
Dim Cellule As Range
Dim Sujet As String
Dim Msg As String
'=============================================================
'Création de l'objet Outlook
Set ApplicOutlook = CreateObject("Outlook.Application")
'Extraction des données
'====================================
Sujet = "nouvelle fiche N°" & TextBox1.Value
'====================================
'Composition du message
'===================================
Msg = "le " & " " & ComboBox1.Value & " " & ComboBox2.Value & " " & ComboBox3.Value & vbLf & vbLf
'===================================
Msg = Msg & " incident: " & ComboBox5.Value & vbLf & vbLf
Msg = Msg & " commentaire: " & TextBox5.Value & vbLf & vbLf
Msg = Msg & "Analyse: " & TextBox6.Value & vbLf & vbLf
Msg = Msg & " Si vous êtes concerné par ce message, veuillez prendre contact auprès de.....pour de plus ample renseignement" & vbLf & vbLf
Msg = Msg & "" & vbLf & vbLf
Msg = Msg & "------ Ne pas répondre, message généré automatiquement-----"
'Création de l'élément de courrier et envoi
Set ElémentCourrier = ApplicOutlook.CreateItem(0)
'======================================================
With ElémentCourrier
.To =
xxxxx@xxxx.com;zzzzz@zz.com
'.Cc = ??
.Subject = Sujet
.Body = Msg
.To =????
'.Cc = ??
.Subject = Sujet
.Body = Msg
.Display
End With
End Sub