Bonjour,
J'essaie d'envoyer des mails avec excel mais la macro bugue ou pas en fonction de la taille de 'hlink'
Dans l'excel ci-joint, j'ai fait une copie d'écran des mesages d'erreurs (car il y en a 2 !!)
Quelqu'un peut-il me dire si sur son poste les erreurs sont les mêmes ?
Merci d'avance de votre aide.
voici le code :
J'essaie d'envoyer des mails avec excel mais la macro bugue ou pas en fonction de la taille de 'hlink'
Dans l'excel ci-joint, j'ai fait une copie d'écran des mesages d'erreurs (car il y en a 2 !!)
Quelqu'un peut-il me dire si sur son poste les erreurs sont les mêmes ?
Merci d'avance de votre aide.
voici le code :
Code:
Option Explicit
Public Const LongueurHlink = 2083
'valeurs pour LongueurHlink
'.. à 2008 ok
'2009 à 2083 erreur "Client courrier par défaut pas installé correctement"
'2084 à .. erreur "methode hyperlink a échoué"
Sub GenererMail()
'déclarartions
Static tmp
Dim Subj
Dim EmailAddr As String
Dim Fichier As String
Dim Msg As String
Dim Hlink As Variant
'destinataire -------------------------------------------
EmailAddr = "toto@toto.com"
'sujet-------------------------------------------
Subj = "Sujet du mail de toto"
'--------------------------------------------------Construire lien hypertexte
Hlink = "mailto:" + EmailAddr + "?" + "subject=" + Subj + "&" + "body="
tmp = Len(Hlink)
Hlink = Hlink + String(LongueurHlink - Len(Hlink), "x")
tmp = Len(Hlink)
'--------------------------------------------------Transmettre le message
ActiveWorkbook.FollowHyperlink Hlink
Application.Wait (Now + TimeValue("0:00:01"))
'SendKeys "^{enter}", True 'envoyer directement le mail
End Sub