Envoi email avec VB sous Excel

  • Initiateur de la discussion ps
  • Date de début
P

ps

Guest
Bonjour,

J'envoi un mail sous excel à l'aide des lignes suivantes:

addressString = "mailto:" & adresseMailString & "?subject=" & Range("C4") & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=addressString

Mon problème est qu'avec cette methode, la taille de mon message est limité en caractères.

Je voudrai savoir comment remedier à ce problème et pouvoir envoyer autant de caractères que je veux.

Par avance Merci

A+

PS
 
J

JMG

Guest
Bonjour PS,

Essaye ceci...


Envoi un Mail: l'adresse est dans la cellule D1, le sujet dans la D2 et le texte dans la D3

Sub EnvoiMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

A+ @ExcelementVotre JMG
 
S

Stéphane

Guest
Bonjour


j'ai mis en ligne ces codes là ou plus ou moins sur mon site depuis des lustres mais je n'avais pas éprouvé la longueur de la variable body.

une suggestion qui ne résoudra peut-être pas le problème, mais si tu transformais ta chaine en hexadécimal.

bye
stephane


http//xlbysteph.free.fr
 

Discussions similaires

  • Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
390

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo