AutoIt Français

Code : Tout sélectionner

#include <Constants.au3>
#Include <String.au3>
#include <GuiConstantsEx.au3>
#include <ClipBoard.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <IE.au3>

;$file = FileOpen("d:\mail.rtf",0)
$file = FileOpen("d:\mail.html",0)

; Check if file opened for reading OK
If $file = -1 Then
   MsgBox(0, "Error", "Unable to open file.")
   Exit
EndIf

    $chars = FileRead($file) ; on copie le contenu du fichier dans une variable

    $oOutlook = ObjCreate("Outlook.Application")
    ;MsgBox(0,"",$oOutlook)

    ;_IEBodyWriteHTML ($oOutlook, $chars )
    ;_IEBodyWriteHTML ($oOutlook, "Hello <b>iFrame!</b>" )

    _INetMail("Moi", "test", 'Hello <b>iFrame!</b>')
    
    ;_INetMail("S0008790", "test", $chars)

    ;_IEDocInsertHTML($oOutlook, "<b>(HTML beforebegin)</b>")
    ;$oFrame = _IEFrameGetObjByName ($oIE, "iFrameTwo")
    ;_ClipBoard_SetDataEx ($chars,$CF_OEMTEXT)
    ;ControlSend("[CLASS:rctrl_renwnd32]", "", "Internet Explorer_Server1", $chars,1)
    ;ControlSetText("[CLASS:rctrl_renwnd32]", "", "Internet Explorer_Server1", $chars)

Code : Tout sélectionner

Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)
    Local $prev = Opt("ExpandEnvStrings", 1)
    Local $var = RegRead('HKCR\mailto\shell\open\command', "")
    Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))
    Local $nError = @error, $nExtended = @extended
    Opt("ExpandEnvStrings", $prev)
    Return SetError($nError, $nExtended, $ret)
EndFunc   ;==>_INetMail
 

Code : Tout sélectionner

#include <Constants.au3>
#Include <String.au3>
#include <GuiConstantsEx.au3>
#include <ClipBoard.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <IE.au3>


$file = FileOpen("d:\mail.html",0)

; Check if file opened for reading OK
If $file = -1 Then
   MsgBox(0, "Error", "Unable to open file.")
   Exit
EndIf

    $chars = FileRead($file) ; on copie le contenu du fichier dans une variable

    CreateMailItem()


Func CreateMailItem()
    Local $olMailItem    = 0
    Local $olFormatRichText = 3
    Local $olImportanceLow   = 0
    Local $olImportanceNormal= 1
    Local $olImportanceHigh  = 2
    Local $olFormatHTML = 1

    $oOApp = ObjCreate("Outlook.Application")
    $oOMail = $oOApp.CreateItem($olMailItem)

    With $oOMail
        .To = ("to@domain.com")
        .Subject = "email subject"
        .BodyFormat =  $olFormatHTML
        .Importance = $olImportanceHigh
        ;.Body = "email message"
        ;.Body = $chars
        .HTMLBody = "Hello <b>iFrame!</b>" ; Formatge HTML
        ;.HTMLBody = $chars
        .Display
        ;.Send
    EndWith
EndFunc

Code : Tout sélectionner

#include <Constants.au3>
#include <String.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

_CreateMail()

Func _CreateMail()

    ; ********* constantes de modèle objet Outlook **************
    Local $asAttachments
    Local $olMailItem = 0
    Local $olFormatHTML = 1

    $oOApp = ObjCreate("Outlook.Application")
    $oOMail = $oOApp.CreateItem($olMailItem)

    With $oOMail

        .SentOnBehalfOfName = ("Ayuckers") ; Envoyé en tant que...
        .To =("Serrenity") ; destinataire
        .Subject = "Test mail" ; Sujet du mail
        .BodyFormat = $olFormatHTML ; format HTML
        .HTMLBody = "Hello <b>Google</b>" ; chaine de caractere en HTML
        ;.Attachments.Add("C:\Autodev\foto_01.html") ; pour Attacher un ou plusieur fichier
        ;.Attachments.Add("C:\Autodev\foto_02.html")
        .Display ; Affichage du mail
        ;.Send ; envoie du mail automatiquement

    EndWith

EndFunc   ;==>_CreateMail

Code : Tout sélectionner

#include <Constants.au3>
#include <String.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

Global $MonModel = ""

; ************  Exemple :   ******************
_CreateMail("Ayuckers", "moi", "mail de test", "toto.html","",0,"C:\Autodev\")


Func _CreateMail($From, $To, $Subject, $Model, $sAttachments = "", $AutoSend = 0, $ModelDirectory = "C:\")

    ; ********* constantes de modèle objet Outlook **************
    Local $asAttachments
    Local $olMailItem = 0
    ;Local $olFormatRichText = 3
    ;Local $olImportanceLow = 0
    ;Local $olImportanceNormal = 1
    ;Local $olImportanceHigh = 2
    Local $olFormatHTML = 1

    ; Lecture du model celui ci est placé dans une variable
    $MonModel = _ReadModel($Model,$ModelDirectory)

    ; ici Faire une fonction qui va remplacer les tags dans $MonModel
    ; avec la fonction StringReplace

    $oOApp = ObjCreate("Outlook.Application")
    $oOMail = $oOApp.CreateItem($olMailItem)

    With $oOMail

        .SentOnBehalfOfName = ($From) ; Envoyé en tant que...
        .To =($To) ; destinataire
        .Subject = $Subject ; Sujet du mail
        .BodyFormat = $olFormatHTML ; format HTML
        ;.Importance = $olImportanceHigh
        ;.Body = "email message"
        .HTMLBody = $MonModel ; model en HTML

        If $sAttachments <> "" Then
            $asAttachments = StringSplit($sAttachments, ";")
            For $iNumOfAttachments = 1 To $asAttachments[0]
                .Attachments.Add($asAttachments[$iNumOfAttachments]) ; pour Attacher un ou plusieur fichier
            Next
        EndIf

        .Display ; Affichage du mail

        If $AutoSend = 1 Then
            .Send
        EndIf

    EndWith

EndFunc   ;==>_CreateMail

Func _ReadModel($ModelMail,$ModelDirectory)

    $file = FileOpen($ModelDirectory & $ModelMail, 0)
    ; Verifie si le fichier a bien ete ouvert avant de le lire
    If $file = -1 Then
        MsgBox(0, "Erreur", "Impossible d'ouvrire le fichier.")
        Exit  ; Dans certain cas sortir brusquemment du programme peut etre problematique.
    Else
        Return FileRead($file) ; on copie le contenu du fichier dans une variable
    EndIf

EndFunc   ;==>_ReadModel