Bonjour,
J'ai plusieurs fichiers qui gèrent l'envoi de mails en automatique via excel. Ces fichiers peuvent être utiliser à la fois par des utilisateurs d'excel 2003 ou de 2007. Le souci que j'ai c'est que le dernier qui enregistre le fichier à "raison".
Au niveau de vba dans outils \ références, il est nécessaire que soit coché "Microsoft outlook XX object library". Si j'ai fait le fichier en 2007, j'aurai donc coché "Microsoft outlook 12 object library"", si un utilisateur ouvre le fichier avec excel2003, la référence sera indiqué comme absente et il faudra cocher "Microsoft outlook 11 object library" pour que cela fonctionne (idem à l'inverse).
Voici le code utilisé :
Sub EnvoiMail_Outlook()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
With olmail
.To = "desti@free.fr"
.Subject = ActiveWorkbook.FullName
.Body = "corps du texte"
.Attachments.Add "C:\PGI\Résultats.xls"
.Display
End With
End Sub
J'ai bien lancé une recherche(et des sujets sur les mails il y en a bcp) mais je n'ai rien trouvé sur ce sujet...
Merci pour votre aide
J'ai plusieurs fichiers qui gèrent l'envoi de mails en automatique via excel. Ces fichiers peuvent être utiliser à la fois par des utilisateurs d'excel 2003 ou de 2007. Le souci que j'ai c'est que le dernier qui enregistre le fichier à "raison".
Au niveau de vba dans outils \ références, il est nécessaire que soit coché "Microsoft outlook XX object library". Si j'ai fait le fichier en 2007, j'aurai donc coché "Microsoft outlook 12 object library"", si un utilisateur ouvre le fichier avec excel2003, la référence sera indiqué comme absente et il faudra cocher "Microsoft outlook 11 object library" pour que cela fonctionne (idem à l'inverse).
Voici le code utilisé :
Sub EnvoiMail_Outlook()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olmailItem)
With olmail
.To = "desti@free.fr"
.Subject = ActiveWorkbook.FullName
.Body = "corps du texte"
.Attachments.Add "C:\PGI\Résultats.xls"
.Display
End With
End Sub
J'ai bien lancé une recherche(et des sujets sur les mails il y en a bcp) mais je n'ai rien trouvé sur ce sujet...
Merci pour votre aide