mail

Salut tout le monde !

petite question, pourquoi le code ci-dessous marche bien quand le programme est dans mon pc (qui n'est le but) mais quand je le mets dans un autre pc (qui le but) j'ai un problème au niveau de Set OutApp = CreateObject("Outlook.Application") et pourtant la personne qui utilise le programme utilise Microsoft Outlook aussi !

Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strbody = "Salut Manu" & vbNewLine & vbNewLine & _
TextBox2.Text

On Error Resume Next
With OutMail
.To = "HelpRequest@skynet.be"
.CC = ""
.BCC = ""
.Subject = "Aide (réf:Gestion et planning magasin vers.0.1.07)"
.Body = strbody
.Display '.Send or use
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
MsgBox ("Ta requête sera traitée le plus vite possible, bonne journée !")
TextBox2.Value = ""
UserForm5.Hide
UserForm3.Hide
End Sub