[R] Couleurs dans les textes

Boulanza · #21

Oui, j'ai remplacer $cdo. Pareil pour $objEmail.Textbody.
Mais après le test voici le résultat:
<html><body>- REMARQUE IMPORTANTE : N'oubliez pas de copier le mot de passe pour le coller dans la zone appropriée.</html>

<html><body>....</html> restent visible !! ??

#22

Visibles dans quoi ? Il y a une erreur ?

Boulanza · #23

Sur le texte du message envoyer au client

#24

~~$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

Boulanza · #25

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> Blablabla partie html</body></html>'& @CRLF
le texte devient.
- Blablabla.... -Ccoco... - 2016....
Pouvez-vous svp voir cela. Merci

#26

Il faut ajouter des balises pour les retours à la ligne

#27

C'est du HTML maintenant donc il faudra mettre un 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 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 !

#28

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

Boulanza · #29

Bonsoir,
En fin, je préfère rester sous les ails de AutoIt, pas d'adultère...
Merci infiniment pour votre aide.
Cordialement.

AutoIt Français

[R] Couleurs dans les textes

Re: [R] Couleurs dans les textes

Re: [..] Couleurs dans les textes

Re: [..] Couleurs dans les textes

Re: [..] Couleurs dans les textes

Re: [..] Couleurs dans les textes

Re: [..] Couleurs dans les textes

Re: [..] Couleurs dans les textes

Re: [..] Couleurs dans les textes

Re: [R] Couleurs dans les textes