Y a t'il un moyen simple en VBA d'ouvrir à partir d'un label (caption = nom
du destinataire du mail) d'une userform, une fenêtre pour la saisie d'un
mail en s'abstenant du type de programme installé sur le poste (Outlook,
Outlok express, netscape, ...).
D'avance merci pour vos réponses
Salutations
JLuc
Cordiales salutations, M. JL CAPEL Support technique IFTH tel : (33) 02 41
49 52 81 fax : (33) 02 41 49 52 59 email : support@ifth.org web site :
www.ifth.org
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Jean-Luc,
cela pourrait peut être ressembler à ceci :
Très incomplet... je ne connais pas le chemin des exécuables pour Nescape ... Je n'ai pas vérifié si ce chemin est le même pour tous les systèmes d'exploitation
'---------------------------------- Sub test()
Dim C As String 'pour outlook express C = "C:Program FilesOutlook Expressmsimn.exe "
'Pour Messenger 'D = "c:Chemin et nom de l'exécutable"
If Dir(C) <> "" Then Shell C & _ "/mailurl:mailto:", vbNormalFocus
ElseIf Dir(d) <> "" Then Shell d, vbNormalFocus End If
End Sub '----------------------------------
Salutations!
"Jean-Luc CAPEL" a écrit dans le message de news: % Bonjour à tous,
Y a t'il un moyen simple en VBA d'ouvrir à partir d'un label (caption = nom du destinataire du mail) d'une userform, une fenêtre pour la saisie d'un mail en s'abstenant du type de programme installé sur le poste (Outlook, Outlok express, netscape, ...).
D'avance merci pour vos réponses Salutations JLuc Cordiales salutations, M. JL CAPEL Support technique IFTH tel : (33) 02 41 49 52 81 fax : (33) 02 41 49 52 59 email : web site : www.ifth.org
Bonjour Jean-Luc,
cela pourrait peut être ressembler à ceci :
Très incomplet... je ne connais pas le chemin des exécuables pour Nescape ...
Je n'ai pas vérifié si ce chemin est le même pour tous les systèmes d'exploitation
'----------------------------------
Sub test()
Dim C As String
'pour outlook express
C = "C:Program FilesOutlook Expressmsimn.exe "
'Pour Messenger
'D = "c:Chemin et nom de l'exécutable"
If Dir(C) <> "" Then
Shell C & _
"/mailurl:mailto:", vbNormalFocus
ElseIf Dir(d) <> "" Then
Shell d, vbNormalFocus
End If
End Sub
'----------------------------------
Salutations!
"Jean-Luc CAPEL" <jlcapel@ifth.org> a écrit dans le message de news: %23qVzfEz0FHA.3568@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Y a t'il un moyen simple en VBA d'ouvrir à partir d'un label (caption = nom
du destinataire du mail) d'une userform, une fenêtre pour la saisie d'un
mail en s'abstenant du type de programme installé sur le poste (Outlook,
Outlok express, netscape, ...).
D'avance merci pour vos réponses
Salutations
JLuc
Cordiales salutations, M. JL CAPEL Support technique IFTH tel : (33) 02 41
49 52 81 fax : (33) 02 41 49 52 59 email : support@ifth.org web site :
www.ifth.org
Très incomplet... je ne connais pas le chemin des exécuables pour Nescape ... Je n'ai pas vérifié si ce chemin est le même pour tous les systèmes d'exploitation
'---------------------------------- Sub test()
Dim C As String 'pour outlook express C = "C:Program FilesOutlook Expressmsimn.exe "
'Pour Messenger 'D = "c:Chemin et nom de l'exécutable"
If Dir(C) <> "" Then Shell C & _ "/mailurl:mailto:", vbNormalFocus
ElseIf Dir(d) <> "" Then Shell d, vbNormalFocus End If
End Sub '----------------------------------
Salutations!
"Jean-Luc CAPEL" a écrit dans le message de news: % Bonjour à tous,
Y a t'il un moyen simple en VBA d'ouvrir à partir d'un label (caption = nom du destinataire du mail) d'une userform, une fenêtre pour la saisie d'un mail en s'abstenant du type de programme installé sur le poste (Outlook, Outlok express, netscape, ...).
D'avance merci pour vos réponses Salutations JLuc Cordiales salutations, M. JL CAPEL Support technique IFTH tel : (33) 02 41 49 52 81 fax : (33) 02 41 49 52 59 email : web site : www.ifth.org
