macro VBA et javascript

  • Initiateur de la discussion Initiateur de la discussion ridub
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ridub

XLDnaute Nouveau
Bonjour,

j'ai un tableau de données qui est mis à jour tous les jours grâce a des macros VBA.

A la fin de ma macro, j’envoie un mail aux différents destinataires.

J'aimerais inserer en fin de mail le dicton du jour que je vais chercher sur la toile.

Voici la partie du code qui gere mon envoi de mail :

On Error Resume Next
With CreateObject("CDO.Message")
If Err Then
MsgBox "Problème de CDO non installé sur le serveur WEB"
Else
.From = "xx@xx.com"
.To = "xx@xx.com"
.Bcc = ""
.Subject = "Urgence du Jour" & " " & dateTraitement
.htmlBody = "Bonjour.<br><br>"
.htmlBody = .htmlBody + "Vous trouverez ci-dessous les liens vers les repertoires qui contiennent vos fichiers du jour. <br><br>"
.htmlBody = .htmlBody + "<a href='\\xx\xx\xx\xxs\xx\OUTIL\xx\xx\'>xx GENERAL</a>.<br><br>"
.htmlBody = .htmlBody + "<a href='\\xx\xx\xx\xxs\xx\OUTIL\xx\xx\'>xx client1</a>.<br><br>"
.htmlBody = .htmlBody + "<<a href='\\xx\xx\xx\xxs\xx\OUTIL\xx\xx\'>xx client2</a>.<br><br>"
.htmlBody = .htmlBody + " le fichier xx est celui de la veille car les fichiers de données sont genérés a 23h tous les soirs.<br><BR>"
.htmlBody = .htmlBody + "Merci de vos actions.<br><br>"

.htmlBody = .htmlBody + "Pensée du jour :<br><br>"
.htmlBody = .htmlBody + "<script language=javascript src="http://www.lapenseedujour.net/penseeweb.php?couleurtexte=000000&tailletexte=1"></script>.<br><br>"

.htmlBody = .htmlBody + "Bonne journée.<br><br>"

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xx"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xx"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.devoteam.com"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update

If Hour(Now) < 12 Then
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
End If
On Error GoTo 0
End With

'ThisWorkbook.Close SaveChanges:=True
0
End Sub





J'ai besoin de votre aide sur l’intégration de la pensée du jour (en rouge)
 
Re : macro VBA et javascript

Salut Ridub,

Ton problème vient des guillemets de la valeur src. En effet quand tu écris
.htmlbody="quelque chose src="masource... Le premier guillemet clos le guillemet du départ de htmlbody.

Pour palier à cela double tes guillemets de src comme suit :

Code:
htmlbody = htmlbody + "<script language=javascript src=""http://www.lapenseedujour.net/penseeweb.php?couleurtexte=000000&tailletexte=1""></script>.<br><br>"

Ainsi tu n'auras pas de problème

@++
David
 
Re : macro VBA et javascript

Bonjour David,

merci cela fonctionne.

par contre même en modifiant la couleur et la taille du texte, je ne récupères qu'un point dans mon mail.

Je continue de creuser et je te tiens au courant

Richard
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
2 K
Retour