xl & mail - Bugs en fonction de la taille mailto:

[arnaud123]

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 :

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

 

[arnaud123]

Re : xl & mail - Bugs en fonction de la taille mailto:

Précision :

Excel 2000 + Thunderbird 3.0.4

 

[arnaud123]

Re : xl & mail - Bugs en fonction de la taille mailto:

Et avec le fichier !

 

[arnaud123]

Re : xl & mail - Bugs en fonction de la taille mailto:

Arrgggh !!!!