envoi de mails

[jmarc]

salut a tous ,

voila mon pb :
j'ai une macro que j'ai pompé sur le forum et adapté:

Sub EnvoiMail()



Dim nouveau_mail As New Outlook.Application
Dim objet_mail As MailItem


Set nouveau_mail = New Outlook.Application
Set objet_mail = nouveau_mail.CreateItem(olMailItem)


With objet_mail
.To = "jean-marc@voila.fr"
.Subject = "Pointage"
.Attachments.Add ("C:\Aaa jmarc\Pointage S")
.Body =" Salut"
.Send
End With
End Sub

En théorie , je voudrais envoyer un mail avec piece jointe ,
mais ca marche pas , j'ai le message suivant : " Erreur de compilation : Type défini par utilisateur non défini" et VBA pointe sur la ligne :
Dim nouveau_mail As New Outlook.Application

Bon j'ai compris que New outlook.application n'est pas reconnu par VBA comme un type ,
J'ai donc cherché et trouvé sur le forum ( pratique ce forum , quand meme ...) qu'il fallait que :

la référence Microsoft Outlook 9.0 object library soit cochée dans le menu OUTIL - - REFERENCES de VBA

amsi je n'ai pas cette reference dans le menu spécifié

Que Faire ????

Merci de votre aide ....
parce que là je seche .....

 

[arnaud]

Salut ,
Question peut être bête ( mais on sais jamais ), as tu outlook d'installé sur ton poste ?? et si oui quel version ???

 

[jmarc]

Salut arnaud ...

Oui bien sur que outlook est installé ....

Version : outlook 97


Mais ca marche pas ....

 

[jmarc]

c'est bon ca fonctionne ...... j'ai trouvé le bean's....

 

[TOTOF]

Salut Jmarc,


j'ai essaye ta formule elle fonctionne, c genial !!

mais sais tu comment inserer une signature dans le "body" du mail ?

merci pour ta reponse

totof

 

[nigay]

bonjour à tous!

je n'arive pas à envoyer une feuille excel par mail ça bug !! ça me donne le message suivant: program ne repond pas !!!que faire SVP
je suis sous XP familial, outlook express 6
merci
Meri

 

[patrick]

salut jmarc et le forum,

pourrais tu me dire quelle manip as tu réalisé pour que cela fonctionne.
j'ai exactement le même problème.

merci d'avance

Patrick