Page 2 sur 2
Re: [R] Couleurs dans les textes
Posté : mar. 19 janv. 2016 23:06
par Boulanza
Oui, j'ai remplacer $cdo. Pareil pour $objEmail.Textbody.
Mais après le test voici le résultat:
<html><body><font color="#ff0000">- REMARQUE IMPORTANTE : N'oubliez pas de copier le mot de passe pour le coller dans la zone appropriée.</font></html>
<html><body><font color="#ff0000">....</font></html> restent visible !! ??
Re: [..] Couleurs dans les textes
Posté : mar. 19 janv. 2016 23:11
par jguinch
Visibles dans quoi ? Il y a une erreur ?
Re: [..] Couleurs dans les textes
Posté : mar. 19 janv. 2016 23:19
par Boulanza
Sur le texte du message envoyer au client
Re: [..] Couleurs dans les textes
Posté : mer. 20 janv. 2016 14:02
par mikell
$cdo.TextBody =>
$cdo.HTMLBody
NOTE IMPORTANTE : disséquer les UDF quand on ne les comprend pas est un moyen infaillible de se péter la gueule
► Afficher le texte
Code : Tout sélectionner
#Include <file.au3>
Global $g_eventerror = 0
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
$s_SmtpServer = "smtp.xxx.fr" ; à remplir
$s_FromName = "xxx" ; à remplir
$s_FromAddress = "xxx@xxx.fr" ; à remplir
$s_ToAddress = "xxx@xxx.fr" ; à remplir
$s_Subject = "susu jetjet"
$as_Body = "bodi bodi bodi partie texte"
$as_Body &= '<html><body><br><font color="#ff0000">Blablabla partie html</font></body></html>'
$s_CcAddress = ""
$s_BccAddress = ""
$s_Username = "xxx" ; à remplir
$s_Password = "xxx" ; à remplir
$IPPort = 25
$ssl = 0
$s_AttachFiles = ""
$mail = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, "", "", "", $s_Username, $s_Password)
If @error Then
MsgBox(0,"Erreur","Message non envoyé")
Else
MsgBox(0,"Terminé!","Message envoyé avec succès" )
EndIf
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $Ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$objEmail.Configuration.Fields.Update
$objEmail.Send
if $g_eventerror then
; if @error then
SetError(2)
$g_eventerror = 0
return 0
EndIf
Return 1
EndFunc
Func MyErrFunc()
$g_eventerror = 1
Endfunc
Re: [..] Couleurs dans les textes
Posté : mer. 20 janv. 2016 15:01
par Boulanza
Bonjour mikell,
J'étais sûr et sans le moindre doute que vous allez trouver la solution.
Mais j'ai un autre souci :
Tout mon texte devient sur un seul paragraphe.
Exemple:
- Blablabla....
-Ccoco...
- 2016....
Lors de l'ajout :
$Texte17= '<html><body><br><font color="#ff0000">Blablabla partie html</font></body></html>'& @CRLF
le texte devient.
- Blablabla.... -Ccoco... - 2016....
Pouvez-vous svp voir cela. Merci
Re: [..] Couleurs dans les textes
Posté : mer. 20 janv. 2016 18:15
par jguinch
Il faut ajouter des balises <br> pour les retours à la ligne
Re: [..] Couleurs dans les textes
Posté : mer. 20 janv. 2016 18:19
par orax
C'est du HTML maintenant donc il faudra mettre un <br> pour faire un retour à la ligne.
Code : Tout sélectionner
$Texte17= '<html><body><br><font color="#ff0000">Blablabla partie html</font><br>Nouvelle ligne</body></html>'& @CRLF
Ou <p></p> pour un paragraphe.
Code : Tout sélectionner
$Texte17= '<html><body><br><font color="#ff0000">Blablabla partie html</font><p>Nouveau paragraphe</p></body></html>'& @CRLF
Oups... jguinch a été plus rapide !
Re: [..] Couleurs dans les textes
Posté : mer. 20 janv. 2016 20:34
par mikell
Pour info dans le code que je posta - et qui apparemment marcha - il y avait ça
Code : Tout sélectionner
$as_Body &= '<html><body>[size=150][b][color=#BF0000]<br>[/color][/b][/size]<font color="#ff0000">Blablabla partie html</font></body></html>'
ake @crlf c'est bon pour du texte mais pô pour du html, et que là présentement on cause html quoi...
Re: [R] Couleurs dans les textes
Posté : mer. 20 janv. 2016 21:45
par Boulanza
Bonsoir,
En fin, je préfère rester sous les ails de AutoIt, pas d'adultère...
Merci infiniment pour votre aide.
Cordialement.