mail

[chinel]

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

 

[MJ13]

Re : mail

Bonjour,

Est-ce que la bibliothèque Outlook est coché dans les références VBA.

 

[chinel]

Re : mail

Mj13 petite explication simple pour les nuls svp !

merci !!!

 

[Gexk5]

Re : mail

Salut, le fichier étant ouvert, faire Alt+ F11(ouverture de visual basic),cliquer sur Outils puis references et cocher si elle n'y est pas Microsoft Outlook 9.0 Object library, cliquer sur OK, tout fermer et re ouvrir le fichier et voir si ca fonctionne

 

[chinel]

Re : mail

Salut gexk5 je vais voir et je te dis quoi demain car je vais dormir !
a+ et bonne nuit !

 

[MJ13]

Re : mail

Bonjour,

Chinel, il ne faut pas oublier la politesse!!

 

[chinel]

Re : mail

désolé mais j'étais fatigué mais je sais que ce n'est pas une excuse !


merci tout le monde !!!!

mais le probème persiste car dans la bibliothèque VBA pas de Microsoft Outlook !


merci !

 

[MJ13]

Re : mail

Bonjour,

En général, il s'agit de fichier.dll, que tu dois récupérer sur un autre poste qui l'a. Il faut que tu tapes alt+F11 puis \Outils \références puis clic sur parcourir (en général, c'est dans WINDOWS\syem32)

 

[chinel]

Re : mail

merci MJ13 je vais cela et je te dis quoi !