Bonjour
J'ai fait la macro ci-joint qui envoie par mail des données issues d'un userform.
Le problème c'est que j'aimerais que l'ouverture d'outlook se fasse en arrière plan. Ceci est d'autant plus vrai si (comme c'est tjs le cas outlook est déjà ouvert). En bref je désire voir à l'écran uniquement mon userform.
Pouvez-vous m'aider à effectuer cette modif svp ?
Ci-dessous le code de la macro
Private Sub CommandButton1_Click()
Set app = CreateObject("outlook.application")
Set Mail = app.CreateItem(0)
Mail.To = "toto@xld.com"
Mail.Subject = "Fiche d'anomalie n°:" & TextBox2.Value
w = Label7 & " " & TextBox2.Value + Chr(13) + Label9 & " " & TextBox7 + Chr(13) + Chr(13) + Label2 & " " & TextBox8 + Chr(13) + Label10 & _
" " & ComboBox6 + Chr(13) + Chr(13) + Label3 & " " & TextBox10 + Chr(13) + Label4 & " " & TextBox9 + Chr(13) + Label5 & " " & TextBox3 + Chr(13) + _
Chr(13) + Chr(13) + Label6 + Chr(13) + Chr(13) & TextBox1 + Chr(13) + Chr(13) + Label8 + Chr(13) + Chr(13) & TextBox5
w = w + "" + Chr(13) + Chr(13)
Mail.Body = w
On Error GoTo fin
Mail.Send
MsgBox ("la fiche d'anomalie a été envoyée")
fin:
End Sub
Merci par avance
Philippe
J'ai fait la macro ci-joint qui envoie par mail des données issues d'un userform.
Le problème c'est que j'aimerais que l'ouverture d'outlook se fasse en arrière plan. Ceci est d'autant plus vrai si (comme c'est tjs le cas outlook est déjà ouvert). En bref je désire voir à l'écran uniquement mon userform.
Pouvez-vous m'aider à effectuer cette modif svp ?
Ci-dessous le code de la macro
Private Sub CommandButton1_Click()
Set app = CreateObject("outlook.application")
Set Mail = app.CreateItem(0)
Mail.To = "toto@xld.com"
Mail.Subject = "Fiche d'anomalie n°:" & TextBox2.Value
w = Label7 & " " & TextBox2.Value + Chr(13) + Label9 & " " & TextBox7 + Chr(13) + Chr(13) + Label2 & " " & TextBox8 + Chr(13) + Label10 & _
" " & ComboBox6 + Chr(13) + Chr(13) + Label3 & " " & TextBox10 + Chr(13) + Label4 & " " & TextBox9 + Chr(13) + Label5 & " " & TextBox3 + Chr(13) + _
Chr(13) + Chr(13) + Label6 + Chr(13) + Chr(13) & TextBox1 + Chr(13) + Chr(13) + Label8 + Chr(13) + Chr(13) & TextBox5
w = w + "" + Chr(13) + Chr(13)
Mail.Body = w
On Error GoTo fin
Mail.Send
MsgBox ("la fiche d'anomalie a été envoyée")
fin:
End Sub
Merci par avance
Philippe