Bonjour à tous,
J'ai fait un tout petit script en Visual Basic (v6.5) sur Excel 2003 qui me permet d'ouvrir un mail avec l'outil de messagerie présent sur la machine et qui positionne l'adresse mail du destinataire, qui positionne un objet spécifique et qui ajoute le fichier Excel de travail en pièce jointe.
Ma fonction est appelée par un boutton qui est présent sur feuillet Excel.
Cette macro fonctionne parfaitement sur Excel 2003. Par contre, j'ai des utilisateurs en Excel 2010. Lorsqu'ils cliquent sur le bouton en question, ils ont un message d'erreur (voir pièce jointe)
Voici mon script :
=========================================================
=======================================================
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub EnvoiMail() vmail = "videoconferencing1.support@orange.com" vsubject = "Alstom - Urgent Request - Telepresence to Telepresence - Meeting Request " Select Case Application.MailSystem Case xlNoMailSystem MsgBox "No mail system installed" Case Else Application.Dialogs.Item(xlDialogSendMail).Show arg1:=vmail, arg2:=vsubject, arg3:=True 'arg1: Recipients 'arg2: Subject 'arg3: ReturnReceipt End Select End Sub
Merci d'avance pour votre aide.
Bonne journée à tous.
David
Partager