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)
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)