Envoi d'un mail via excel

**tidams** · 15/01/2009, 10h03

Bonjour à tous.

Je suis en train de créer une feuille XLS pour le boulot.
Cette feuille est un compte rendu d'activité.

J'ai besoin sur cette feuille d'ajouter un bouton me permettant d'envoyer un email au client dont l'adresse email est dans la cellule : E13, le sujet dans E14, et le message sur la plage de cellule : a94:f105.

J'arrive parfaitement à envoyer mon mail si le message est simplement sur la cellule : A94 avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("E13")
Subj = Range("E14")
Msg = Msg & Range("A94")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Cependant j'ai vraiment besoin que mon message contienne toutes les informations qui se trouvent de la cellule a94 : f105. J'ai alors tout bêtement écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("E13")
Subj = Range("E14")
Msg = Msg & Range("A94:F105")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Mais lorsque je clique sur mon bouton, j'ai une erreur de script et le débugueur m'indique cette ligne :

Code :

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

Msg = Msg & Range("A94:F105")

Je ne suis pas un spécialiste script sous excel... Pouvez-vous éclairer ma lanterne ?

Merci par avance,

Au plaisir.

**Godzestla** · 15/01/2009, 10h09

Bonjour,

une solution différente est de sauver ta plage ("A94:F105") seule dans un fichier excel nouveau et attacher ce nouveau fichier excel à ton email plutot que d'essayer de mettre ton range dans le corps de ton email.

Il y a quoi dans ton range ?

**tidams** · 15/01/2009, 10h28

Envoyé par Godzestla

Bonjour,

une solution différente est de sauver ta plage ("A94:F105") seule dans un fichier excel nouveau et attacher ce nouveau fichier excel à ton email plutot que d'essayer de mettre ton range dans le corps de ton email.

Il y a quoi dans ton range ?

Merci pour ta réponse !

Dans mon range il y a un recap de certaines données de ma feuillle.
Exemple :
Nom du client =A3
Email du client =E13

Puis un texte que j'écris manuellement pour un compte rendu d'activité.

J'ai bien pensé à mettre la feuille en pièce jointe, mais cette solution n'est pas envisageable pour différentes raisons (notamment technique)

Merci

**Fvandermeulen** · 15/01/2009, 10h37

Bonjour,
Pour un cas similaire j'ai utiliser une variable que j'avais appelé MyText que j'ai défini comme ceci:

Code :

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

MyText = Range("A94") & " " & Range ("A95")

Etc

A toi de voir en fonction de ce que tu veux de prévoir des retour à la ligne ou de supprimer les espaces, ...

Il y a surement mieux mais ca dépanne.

**tidams** · 15/01/2009, 11h03

Envoyé par Fvandermeulen

Bonjour,
Pour un cas similaire j'ai utiliser une variable que j'avais appelé MyText que j'ai défini comme ceci:

Code :

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

MyText = Range("A94") & " " & Range ("A95")

Etc

A toi de voir en fonction de ce que tu veux de prévoir des retour à la ligne ou de supprimer les espaces, ...

Il y a surement mieux mais ça dépanne.

Hey merci, ça fonctionne ! En attendant une meilleure solution je vais opter pour ce système.. par contre : comment tu fais pour avoir des retours à la ligne, des espaces,... ?

Tidams

**Fvandermeulen** · 15/01/2009, 11h14

J'utilise les 'Chr', là aussi je sais qu'il y a mieux mais les habitudes sont difficiles à changer...Ci-dessous un example avec espace

Code :

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

& " " &

et mise à la ligne

Code :

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

& chr(10) & chr(13) &.

J'ai mis un msg box pour voir le résultat.

Code :

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

1
2
3
MyText = Range("a94") & " " & Range("b94") & Chr(10) & Chr(13) & _
         Range("a95") & " " & Range("b95")
MsgBox (MyText)

Attention les espaces avant et après les "&" sont imporants.

Bonne continuation.

**tidams** · 15/01/2009, 11h19

Mon msgbox fonctionne bien : retour à la ligne, espace,... mais une fois dans le client de messagerie, toutes les données se mettent à la suite sans prendre en considération le formatage demandé

**Fvandermeulen** · 15/01/2009, 11h35

Dans ce cas, voici une autre methode (avec outlook), tu verras qu'elle permet la mise en page du texte avec la méthode Chr.
Dans l'exemple, il y a une pièce jointe, je le laisse ça pourra peut-être te servir plus tard.

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
Sub EnvoiFichier()
 
  ' ENVOI PAR E-MAIL DU FICHIER :
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
 
  Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ""
  'défini le fichier à mettre en pièce jointe
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = Range("e13") 'Attention le lien hypertexte doit être supprimé dans la cellule de ref. (dans ton cas e13
  MonMessage.Cc = 
  MonMessage.Attachments.Add Monfichier 'supprimer cette ligne si pas de pièce jointe
  MonMessage.Subject = Range("e14")
  Corps = "Bonjour,"
  Corps = Corps & Chr(13) & Chr(10)
  Corps = Corps & range("a94")
'Tu peux multiplier la ligne du dessus autant que nécessaire pour avoir le texte que tu désire
  MonMessage.body = Corps
  MonMessage.send
  Set MonOutlook = Nothing
End Sub

J'espère que cette fois ce sera OK.