Discussion :

[Begood18]

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