[R] Couleurs dans les textes

[Boulanza]

Bonjour,
AutoIt permet il de changer la couleur du texte ci-dessous :

$Texte17= "- REMARQUE IMPORTANTE : N'oubliez pas de copier le mot de passe pour le coller dans la zone appropriée." & @CR

Merci pour votre aide.
Cordialement.

[jguinch]

Oui, regarde :
$Texte17= "- REMARQUE IMPORTANTE : N'oubliez pas de copier le mot de passe pour le coller dans la zone appropriée." & @CR

Sérieusement, comment veux-tu qu'on te répondre sans plus d'explications ? C'est quoi comme type de contrôle ?

[Boulanza]

Bonjour,
Oui, jguinch, vous avez totalement raison. Je m'explique:

J’utilise la fonction:"$cdo.TextBody" du code ci-joint pour envoyer des messages d’instruction par mails à mes clients. Souvent ces derniers ne lisent pas totalement mes messages, c’est la raison pour laquelle je voudrais colorer le texte pour attirer son attention.

Local $Texte1 = "":le sujet du mail
.
.
Local $Texte17= "- REMARQUE IMPORTANTE : N'oubliez pas de copier le mot de passe pour le coller dans la zone appropriée." & @CR

Local $Messages = $Texte1& à $Texte17

$cdo.TextBody = $Messages

► Afficher le texte

Func mail()
$SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED
$FromName = "Test" ; name from who the email was sent ; address from where the mail should come
$ToAddress = $FromAddress ; destination address of the email - REQUIRED
$Subject = "Userinfo" ; subject from the email - can be anything you want it to be
$Body = $var01 ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = $filecopier ; the file you want to attach- leave blank if not needed
$CcAddress = "" ; address for cc - leave blank if not needed
$BccAddress = "" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = $FromAddress ; username for the account used from where the mail gets sent - REQUIRED ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 465 ; port used for sending the mail
$ssl = 1 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)

If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
EndFunc ;==>mail

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $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])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 Then $IPPort = 25
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... serverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... thenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... ndusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... ndpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/config ... smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail = ""
EndFunc ;==>_INetSmtpMailCom



Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc
Func _PathFull($sRelativePath, $sBasePath = @WorkingDir)
If Not $sRelativePath Or $sRelativePath = "." Then Return $sBasePath

; Normalize slash direction.
Local $sFullPath = StringReplace($sRelativePath, "/", "\") ; Holds the full path (later, minus the root)
Local Const $sFullPathConst = $sFullPath ; Holds a constant version of the full path.
Local $sPath ; Holds the root drive/server
Local $bRootOnly = StringLeft($sFullPath, 1) = "\" And StringMid($sFullPath, 2, 1) <> "\"

If $sBasePath = Default Then $sBasePath = @WorkingDir

; Check for UNC paths or local drives. We run this twice at most. The
; first time, we check if the relative path is absolute. If it's not, then
; we use the base path which should be absolute.
For $i = 1 To 2
$sPath = StringLeft($sFullPath, 2)
If $sPath = "\\" Then
$sFullPath = StringTrimLeft($sFullPath, 2)
Local $nServerLen = StringInStr($sFullPath, "\") - 1
$sPath = "\\" & StringLeft($sFullPath, $nServerLen)
$sFullPath = StringTrimLeft($sFullPath, $nServerLen)
ExitLoop
ElseIf StringRight($sPath, 1) = ":" Then
$sFullPath = StringTrimLeft($sFullPath, 2)
ExitLoop
Else
$sFullPath = $sBasePath & "\" & $sFullPath
EndIf
Next

; If this happens, we've found a funky path and don't know what to do
; except for get out as fast as possible. We've also screwed up our
; variables so we definitely need to quit.
; If $i = 3 Then Return ""

; A path with a drive but no slash (e.g. C:Path\To\File) has the following
; behavior. If the relative drive is the same as the $BasePath drive then
; insert the base path. If the drives differ then just insert a leading
; slash to make the path valid.
If StringLeft($sFullPath, 1) <> "\" Then
If StringLeft($sFullPathConst, 2) = StringLeft($sBasePath, 2) Then
$sFullPath = $sBasePath & "\" & $sFullPath
Else
$sFullPath = "\" & $sFullPath
EndIf
EndIf

; Build an array of the path parts we want to use.
Local $aTemp = StringSplit($sFullPath, "\")
Local $aPathParts[$aTemp[0]], $j = 0
For $i = 2 To $aTemp[0]
If $aTemp[$i] = ".." Then
If $j Then $j -= 1
ElseIf Not ($aTemp[$i] = "" And $i <> $aTemp[0]) And $aTemp[$i] <> "." Then
$aPathParts[$j] = $aTemp[$i]
$j += 1
EndIf
Next

; Here we re-build the path from the parts above. We skip the
; loop if we are only returning the root.
$sFullPath = $sPath
If Not $bRootOnly Then
For $i = 0 To $j - 1
$sFullPath &= "\" & $aPathParts[$i]
Next
Else
$sFullPath &= $sFullPathConst
; If we detect more relative parts, remove them by calling ourself recursively.
If StringInStr($sFullPath, "..") Then $sFullPath = _PathFull($sFullPath)
EndIf

; Clean up the path.
Do
$sFullPath = StringReplace($sFullPath, ".\", "\")
Until @extended = 0
Return $sFullPath
EndFunc ;==>_PathFull

A+

[jguinch]

J'ai pas testé, mais je pense qu'il suffit d'envoyer du texte formaté en HTML

[Boulanza]

Comment faire pour envoyer du texte formaté en HTML sous AutoIt.
Merci.

[jguinch]

Ce n'est pas propre à AutoIt.
Au lieu de mettre du texte, tu mets du HTML, comme par exemple :
$text = "<html><body><font color="#ff0000">Blablabla</font></body></html>"
J'ai pas essayé, donc je ne sais pas si ça marche

[mikell]

Mon petit doigt me susurre (après lecture de la partie de code suivante dans la fonction) que ça pourrait marcher

Code : Tout sélectionner

If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
    $objEmail.HTMLBody = $as_Body
Else
    $objEmail.Textbody = $as_Body & @CRLF
EndIf

[Boulanza]

Bonsoir mikel,
C’est trop abstrait pour moi, expliquez nous comment utiliser votre code avec celui de jguinch.
A+

[mikell]

Heu non, le bout de code que j'ai posté est juste extrait de la fonction _INetSmtpMailCom
Il montre - AMHA - que cette fonction accepte dans le body du message du code html aussi bien que du simple texte

Edit : testé à l'instant et ça marche
Essaie de mettre ça dans le corps du message ($Body) :

Code : Tout sélectionner

<html><body><font color="#ff0000">Blablabla</font></body></html>

[Boulanza]

Bonjour,
Merci pour votre réponse.
J'ai pas pu placer correctement le bout de code dans le corps du message ($Body) que vous m'avez posté.
Aimable à vous de m'aider à le placer dans le corps du message ($cdo.TextBody) ci-joint:

► Afficher le texte

#Include <File.au3>

$Texte1="Blablabla" & @CRLF
;.../... les suitvants
$Texte17="- REMARQUE IMPORTANTE : N'oubliez pas de copier le mot de passe pour le coller dans la zone appropriée." & @CRLF" & @CRLF
$Texte18="Blablabla" & @CRLF
$Texte20="Blablabla" & @CRLF
;==================================================
$v1= $Texte1
;.../... les suitvants
$v17= $Texte18
$v18= $Texte19
$v19= $Texte20
;=================================================
$URL=$v1&" "&.../... les suitvants&" "&$v17&" "&$v18&" "&$v19
msgbox(0," retour ", $URL)
;==========================================
Local $cdo = ObjCreate("CDO.Message")
$cdo.To =$res1
$cdo.From="xxxx"
$cdo.Subject='xxxx'
$cdo.TextBody= $URL ;'cela fonctionne'

;;$cdo.AddAttachment(); ($FichierJoint)

$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... smtpserver") = 'smtp.xxx.net'
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... serverport") = 587
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... thenticate") = 1
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... ndusername") = 'stcsend' ;
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... ndpassword") = 'xxxx'
$cdo.Configuration.Fields.Update
$cdo.Send
EndFunc

[jguinch]

Tu te forces ou c'est naturel chez toi ?

Code : Tout sélectionner

$Body = "<html><body><font color="#ff0000">blablabla</font></html>"
$cdo.TextBody= $Body

[Boulanza]

Re-Bonjour,
Non vraiment j'ai tout fait pour que ça marche, mais je n'ai pas pu le faire marcher dans mon code. Toutes vos interventions et les solutions des codes je les partage avec les visiteurs du ce honorable site AutoIt.
Cordialement.

[Boulanza]

Voilà comment j'ai procédé à placer le code mais ça ne marche pas :

► Afficher le texte

#Include <File.au3>
$Texte1="Blablabla" & @CRLF
;.../... les suitvants
;=============
;***Cela ne fonctionne pas
$Texte17= "<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>" & @CRLF
$Texte18="Blablabla" & @CRLF
$Texte20="Blablabla" & @CRLF
;==================================================
$v1= $Texte1
;.../... les suitvants
$v17= $Texte18
$v18= $Texte19
$v19= $Texte20
;=================================================
$URL=$v1&" "&.../... les suitvants&" "&$v17&" "&$v18&" "&$v19
msgbox(0," retour ", $URL)
;==========================================
Local $cdo = ObjCreate("CDO.Message")
$cdo.To =$res1
$cdo.From="xxxx"
$cdo.Subject='xxxx'
$cdo.TextBody= $URL ;'cela fonctionne'
;==========================
;***Cela ne fonctionne pas aussi
$objEmail.Subject = $URL
If StringInStr($cdo.TextBody, "<") And StringInStr($cdo.TextBody, ">") Then
$objEmail.HTMLBody = $cdo.TextBody
Else
$objEmail.Textbody= $URL & @CRLF
EndIf
;==========================
;;$cdo.AddAttachment(); ($FichierJoint)

$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... smtpserver") = 'smtp.xxx.net'
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... serverport") = 587
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... thenticate") = 1
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... ndusername") = 'stcsend' ;
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... ndpassword") = 'xxxx'
$cdo.Configuration.Fields.Update
$cdo.Send
EndFunc

C'est pour cela, je vous prie de m'aider. Merci d'avence.
Cordialement.

[Boulanza]

Bonsoir,
La suggestion de jguinch:
$Body = "<html><body><font color="#ff0000">blablabla</font></html>"
$cdo.TextBody= $Body
et de la jguinch suggestion de mikell:
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
ne donnent rien pas de résultat !
A+

[jguinch]

Boulanza,
Avec 187 messages au compteur, on aurait pu s'attendre à un meilleur niveau de compréhension de te part.
Nous ne pouvons pas toujours te donner du code tout fait, il faut que tu y mettes de la bonne volonté et tentes de trouver la solution par toi-même, sinon tu ne progresseras jamais.

Pour ce que tu veux faire, il faut simplement que tu reprennes le code de ton deuxième message et que tu modifies $Body pour qu'il contienne du code HTML, comme je l'ai fait précédemment :

Code : Tout sélectionner

$body = "<html>.......</html>"

C'est en forgeant qu'on devient forgeron (et à mon avis, on ne devient pas forgeron en ne battant le fer que deux ou trois fois par an)

[Boulanza]

Bonjour,
Je ne vous assure que je ne manque pas de bonne volonté. Pour arriver à trouver tout seul les solutions à mes problèmes de préparation de scripte AutoIt. Malheureusement, lorsque ça ne marche pas pour moi, je retourne vers vous...
Vous pouvez vérifier sur mon code ci-dessous que j'ai respecté vos suggestions mais bahhhhh.
Cordialement.

► Afficher le texte

#Include <File.au3>
$Texte1="Blablabla" & @CRLF
;.../... les suitvants
;=============
;***Cela ne fonctionne pas
$Texte17= "<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>" & @CRLF
$Texte18="Blablabla" & @CRLF
$Texte20="Blablabla" & @CRLF
;==================================================
$v1= $Texte1
;.../... les suitvants
$v17= $Texte18
$v18= $Texte19
$v19= $Texte20
;=================================================
$URL=$v1&" "&.../... les suitvants&" "&$v17&" "&$v18&" "&$v19
msgbox(0," retour ", $URL)
;==========================================
Local $cdo = ObjCreate("CDO.Message")
$cdo.To =$res1
$cdo.From="xxxx"
$cdo.Subject='xxxx'
$cdo.TextBody= $URL ;'cela fonctionne'
;==========================
;***Cela ne fonctionne pas aussi
$objEmail.Subject = $URL
If StringInStr($cdo.TextBody, "<") And StringInStr($cdo.TextBody, ">") Then
$objEmail.HTMLBody = $cdo.TextBody
Else
$objEmail.Textbody= $URL & @CRLF
EndIf
;==========================
;;$cdo.AddAttachment(); ($FichierJoint)

$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... smtpserver") = 'smtp.xxx.net'
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... serverport") = 587
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... thenticate") = 1
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... ndusername") = 'stcsend' ;
$cdo.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... ndpassword") = 'xxxx'
$cdo.Configuration.Fields.Update
$cdo.Send
EndFunc

[jguinch]

Dans ton premier code tu utilises _INetSmtpMailCom, et là il a disparu. Pourquoi tu n'utilises plus _INetSmtpMailCom ? Il faut certainement renseigner le serveur SMTP, le nom d'utilisateur, le mot de passe, le port...
Est-ce que tu as essayé ton code (le dernier) avec du texte simple ? Est-ce que ça marche ?

[Boulanza]

Oui, il marche parfaitement sans souci. Je l'utilise dans un cadre professionnel depuis 2 ans pour le mailing... Très stable pas de surprise pas de bug.

[orax]

Il y a aussi un petit problème de guillemets dans le code de jguinch, au niveau de "#ff0000" : http://autoitscript.fr/forum/viewtopic. ... 748#p96748
Version corrigée :

Code : Tout sélectionner

$Texte17= "<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>" & @CRLF

[jguinch]

Ah oui, j'avais pas fait gaffe.
Boulanza, je vois dans ton code $objEmail.Subject = $URL. Il faut remplacer $cdo. Pareil pour $objEmail.Textbody