Pb utilisation macro par tiers (envoi outlook entre autres)

[krystof_ii]

Bonjour à tous,
Je (re)contacte le forum pour une question de compatibilté de ma macro avec d'autres utilisateurs (envoi de mail avec feuille en piece jointe).

Sub SendOneSheet()
'SOURCE:Sending Email

Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

ThisWorkbook.Sheets(2).Copy

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
"Sheet2.xls"

With olMail
.Recipients.Add "You@me.com"
.Recipients.Add "Me@You.com"
.Recipients.Add "Him@Her.com"
.Subject = "That one sheet"
.Body = "Here you go" & vbCrLf
.Attachments.Add ActiveWorkbook.FullName
.Display
End With

ActiveWorkbook.Close False

Kill ThisWorkbook.Path & "\" & "Sheet2.xls"

Set olMail = Nothing
Set olApp = Nothing

End Sub

Sur mon poste, cela fonctionne nickel.

Sur autre poste, la fonction plante sur : Dim olMail As boolean

Quelqu'un aurait-il une idée ?
Existe-t-il des problemes quand on utilise des "réferences particulières" sur une macro pour rendre celle-ci utilisable par "tous" ?

Merci de m'avoir lu.

 

[TOFatJOB]

Re : Pb utilisation macro par tiers (envoi outlook entre autres)

Salut,

n'y a-t-il pas de macro complémentaires à activer ?

"outils" "macros complémentaires" "VBA pour assistant internet" à cocher ?

tu écris : plante à : Dim olMail As boolean

cette instruction n'existe pas dans ta macro, avez vous tous la même version ?