Discussion :

[sness]

Bonjour à tous,

J'ai un soucis dans mon code pour rattacher la valeur d'une cellule dans mon mailto(extrait code ci-dessous)

J'ai bien essayé de plusieurs manière mais les données de la cellule ne se rattache pas même si ma fenêtre Outlook s'ouvre correctement

Code :

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

1
2
3
4
5
6
7
8
destinataire = [FORMULAIRE SAISIE'!B1]
Message = [FORMULAIRE SAISIE'!B7]
 
ActiveCell.Hyperlinks.Add ActiveCell, "mailto:destinataire " & Email & "?subject=" & "?Body=test" & PropAdd, "", "", "Envoyer message"
 Msg = "Envoyer le message?"
 Ans = MsgBox(Msg, vbYesNo)
 If Ans = vbNo Then Exit Sub
 If Ans = vbYes Then ActiveCell.Hyperlinks(1).Follow

Pour info mes données à récupérer se trouve dans la feuille FORMULAIRE SAISIE (qui se rempli avec un formulaire) et les données sont
Email: B1
Objet: B4
Corps du mail B6 + B7 + B8

Quelqu'un voit-il où est mon erreur?

Merci d'avance.

[MarcelG]

Bonjour,

Je trouve, pour ma part, ce processus trop restrictif, car manquant de souplesse.

Pourquoi ne pas gérer Outlook depuis Excel et adresser un mail contenant un corps de texte, un objet, un destinataire d'adresse, un destinataire en copie, etc....?

Voir ce post.

[sness]

Justement l'idée est que ce soit restrictif pour l'utilisation nécessaire.

En fait mon formulaire sera rattaché à un fichier déjà existant de suivi d'appels téléphonique

J'ai besoin de standardisé la structure d'envoi des mails et l'objet avec les champs indiqués (pour éviter la "fête du slip" et avoir une même structure pour l'équipe).

Mon problème actuellement est que je ne sais pas comment rattaché la valeur de la cellule B1 au champ email destinataire par exemple dans mon code

Le formulaire se présente comme suit:

[MarcelG]

?

Code :

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

Txt_Email.Text = Range("B1").Value

Non?

[sness]

Merci de te pencher sur ma problématique

Je vais faire l'essai mais je suis pas un pro (je suis autodidacte et parcours le forum pour m'aider à développer mes différents projets….)

En fait je voudrais qu'ici:

ActiveCell.Hyperlinks.Add ActiveCell, "mailto:destinataire

ce soit par exemple la valeur de la cellule B1


Pour le moment si j'écris mailto:B1 et bien il me met B1 tel quel dans le champ adresse

[MarcelG]

Code :

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

mailto:Range("B1").Value

?