Laisser outlook en arrière plan

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