adresse mail sous vba excel

**yvanovitch** · 13/03/2008, 15h52

Bonjour,
J'ai conçu un petit utilitaire excel avec des macros et je voudrais envoyer par mail la feuille"mail" de mon classeur excel.
Quand j'utilise la macro avec en adresse de type "adr="yve---@orange.fr" qui est mon adresse , la macro fonctionne très bien et le mail est lançé.
Par contre si je passe une variable récupérée dans une autre feuille de mon classeur et que dans une cellule de cette feuille j'y ai plaçé un string "yve----@orange.fr" cette adresse est refusée par outlook???.
Merci à ceux qui pourront m'expliquer le bug.
Voici le code de ma macro

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
22
23
24
25
26
27
28
29
Sub MailFeuilleOE()
Dim adressemail As Variant
Sheets("mail").Range("b7") = ActiveCell.Offset(0, 1).Value ' transfert des valeurs dans la feuille mail
Sheets("mail").Range("b9") = ActiveCell.Offset(0, 2).Value ' en vue de créer
Sheets("mail").Range("b11") = ActiveCell.Offset(0, 0).Value ' la pièce jointe
Sheets("mail").Range("d19") = ActiveCell.Offset(0, 3).Value
Sheets("mail").Range("d21") = ActiveCell.Offset(0, 4).Value
Sheets("mail").Range("d25") = ActiveCell.Offset(0, 7).Value
Sheets("mail").Range("d27") = ActiveCell.Offset(0, 8).Value
Sheets("mail").Range("b13") = ActiveCell.Offset(0, 9).Value
Sheets("mail").Range("e7") = ActiveCell.Offset(0, 10).Value
Sheets("mail").Range("d23") = Sheets("cout des taches").Range("f6")
numfich = Sheets("mail").Range("b13") ' on récupère le numéro d'ordre pour créer le fichier et sauvegarder le mail
monfichier = "c:\envoi_mail\mail" & numfich & ".xls"
adressemail = Sheets("mail").Range("e7")
Dim Dest, Sujt, Msg As String
Dim RepName
Sheets("mail").Copy ' on copie le feuille mail
ActiveWorkbook.SaveAs Filename:=monfichier 'et on la sauvegarde dans le dossier envoi_mail
RepName = monfichier ' on récupère cette mème feuille sur le disque dur
'Dest = "yve-------.fr" ' adresse du destinataire
Dest = adressemail
Sujt = "Travaux informatiques" ' objet
Msg = "Bonjour, Veuillez trouver en pièce jointe le devis concernant les travaux que vous avez demandés" ' texte du message
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s" ' on active outlook pour envoi
ActiveWorkbook.Close ' on referme le classeur
End Sub

**ouskel'n'or** · 13/03/2008, 17h08

Sous quelle forme sont placées tes adresses dans la feuille de calculs ?

"MailTo:blabla@laposte.net"
ou
"blabla@laposte.net"

**yvanovitch** · 13/03/2008, 18h05

Merci de s'interresser à mon problème
La cellule contient l'adresse sous forme"abcdefg@orange.fr"
Le mailto étant intégré à l'adresse dans le shell de la macro.

Merci pour votre aide

**ouskel'n'or** · 13/03/2008, 18h18

Je cherche seulement de comprendre, comme je t'ai dit dans un autre post, je n'ai jamais fait et ne connais pas la syntaxe.
En attendant que quelqu'un qui sait passe par là... je testerais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
adressemail = "/mailurl:mailto:"  & Sheets("mail").Range("e7")
...
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
adressemail & " ?subject=" & ....

Bonne chance

PS - Pourquoi utiliser deux variables (Dest et adressemail) ?

**yvanovitch** · 13/03/2008, 18h29

En fait j'ai utilisé 2x variables pour tester mais c'est vrai qu'après , une seule suffira.
Pour en revenir à ta première question concernant le type de l'adresse , la cellule contient une adresse mail véritable( en bleu) et non un simple texte
quand je passe la souris sur la case l'info bulle m'affiche:
mailto:abcdefg@orange.fr"
a plus merci encore