[R] Word 2007 - Envoyer Email avec sujet texte destinataire

[jcaspar]

B onjour à tous !

Je souhaiterais pouvoir envoyer un émail à partir du document en cours
en définissant le sujet, l'adresse émail du ou des destinataires ainsi que le texte à insérer
et la pièce jointe ...


$word.ActiveDocument.SendMail permet d'ouvrir outlook mais je ne parviens pas à définir un sujet
ni l'adresse email du destinataire .... faudrait il créer un objet Outlook et partir de là ?

En vous remerciant pour vos conseils

Jean-Marc

► Afficher le texte

Code : Tout sélectionner

#AutoIt3Wrapper_Run_Debug_Mode=Y                 ;(Y/N) Run Script with console debugging. Default=N
#AutoIt3Wrapper_Run_Debug=On                     ;(On/Off) Switch debugging on/off

local $nom = "Le nom d'utilisateur est " & @username
local $ip = "L'adresse IP du PC est :" & @IPAddress1
local $domaine = "Vous êtes connecté au domaine:" & @LogonDomain
local $serveur = "Vous êtes connecté au serveur:" & @LogonServer
local $os = "Votre système d'exploitation est le suivant :" & @OSVersion & @LF & " La langue est " & @OSlang & @LF & "Le service Pack est: " & @OSServicePack
Global $wdColorRed
$word = ObjCreate("Word.Application")
$word.helpTool()
$word.visible = True
$word.Selection.WholeStory
$word.Documents.Add
$word.Selection.TypeText($nom)
$word.Selection.WholeStory
$word.Selection.Style = "Titre"
$word.Selection.insert
$word.Selection.TypeText($ip)
$word.Selection.Style = "Titre 1"
$word.Selection.TypeParagraph
$word.Selection.TypeText($nom)
$word.Selection.Style = "Titre 2"
$word.Selection.TypeParagraph
$word.Selection.TypeText($domaine)
$word.Selection.Style = "Titre 3"
$word.Selection.TypeParagraph
$word.Selection.TypeText($serveur)
$word.Selection.Style = "Titre 4"
$word.Selection.TypeParagraph
$word.Selection.TypeText($os)
$word.Selection.Style = "Titre 5"
$word.Selection.TypeParagraph

;~  tableau automatique
$word.ActiveDocument.Tables.Add($word.Selection.Range, 5, 7)

With $word.Selection.Tables(1)
    If .Style <> "Grille du tableau" Then
        .Style = "Grille du tableau"
    EndIf
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = True
    .ApplyStyleLastColumn = False
    .ApplyStyleRowBands = True
    .ApplyStyleColumnBands = False
EndWith


for $i = 0 to 34 step 1
    $j = $i + 5 *2 /3
    $word.Selection.TypeText("La valeur de la cellule " & $i & "est de" & $j)
    sleep(100)
    $word.Selection.MoveRight(1)
    $word.Selection.Font.Color = $wdColorRed
    $word.Selection.Font.Color($wdColorRed)
Next

$word.Selection.TypeParagraph
$word.Selection.TypeText("  ")


;~ tableau manuel

$word.ActiveDocument.Tables.Add($word.Selection.Range, 5, 7)

With $word.Selection.Tables(1)
    If .Style <> "Grille du tableau" Then
        .Style = "Grille du tableau"
    EndIf
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = True
    .ApplyStyleLastColumn = False
    .ApplyStyleRowBands = True
    .ApplyStyleColumnBands = False

EndWith

$word.Selection.TypeText("Leo")
$word.Selection.Font.ColorIndex = 10
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Firmin")
$word.Selection.Font.Color(5)
$word.Selection.MoveRight(1)
$word.Selection.Font.Color = "wdColorRed"
$word.Selection.TypeText("Louis")
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Elise")
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Lucie")

$word.Selection.MoveRight(1)
$word.Selection.TypeText("Tom")
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Jules")
$word.Selection.MoveRight(1)
$word.Selection.MoveLeft
$word.Selection.MoveDown
$word.Selection.TypeText("Lupita")
$word.Selection.MoveDown
$word.Selection.MoveDown
$word.Selection.MoveDown
$word.Selection.MoveDown
$word.Selection.MoveDown

$word.ActiveDocument.Tables(1).Cell(1, 1).Range.Shading.BackgroundPatternColor("wdColorAqua")

;~ local $msoShapeRectangle

;~ $word.ActiveDocument.Shapes.AddShape($msoShapeRectangle, 122.25, 599.25, 229.5, 55.5).Select
;~ $word.Selection.ShapeRange.Fill.Solid
;~ $word.Selection.ShapeRange.Fill.ForeColor.ObjectThemeColor = "wdThemeColorAccent2"
;~ $word.Selection.ShapeRange.Fill.ForeColor.TintAndShade = "0#"
;~ $word.Selection.ShapeRange.Fill.BackColor.RGB(255, 255, 255)
;~ $word.Selection.ShapeRange.Fill.Visible = "msoTrue"
;~ $word.Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = "wdThemeColorMainLight1"
;~ $word.Selection.ShapeRange.Line.ForeColor.TintAndShade = "-0.05"
;~ $word.Selection.ShapeRange.Line.Weight = "3#"
;~ $word.Selection.ShapeRange.Line.Style = "msoLineSingle"
;~ $word.Selection.ShapeRange.Line.Visible = "msoTrue"
;~ $word.Selection.ShapeRange.Shadow.Type = "msoShadow3"
;~ $word.Selection.ShapeRange.Shadow.ForeColor.ObjectThemeColor = "wdThemeColorAccent2"
;~ $word.Selection.ShapeRange.Shadow.ForeColor.TintAndShade = "-0.5"
;~ $word.Selection.ShapeRange.Shadow.Transparency = "0.5"
;~ $word.Selection.ShapeRange.Shadow.OffsetX = "1#"
;~ $word.Selection.ShapeRange.Shadow.OffsetY = "2#"
;~ $word.Selection.ShapeRange.Shadow.Visible = "msoTrue"
;~ $word.Selection.ShapeRange.ThreeD.Visible = "msoFalse"


;~ $word.Hyperlinks.Add($oAnchor, $sAddress, $sSubAddress, $sScreenTip, $sTextToDisplay, $sTarget)

;~ $word.ActiveDocument.Shapes.AddShape(1, 95.25, 78.75, 285.75, 146.25).Select;msoShapeRectangle = 1
;~ $word.Selection.ShapeRange.Fill.Solid
;~ $word.Selection.ShapeRange.Fill.ForeColor.ObjectThemeColor = 4 ;wdThemeColorAccent1 = 4
;~ $word.Selection.ShapeRange.Fill.ForeColor.TintAndShade = 0.4
;~ ToolTip("Etape 1", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.Fill.BackColor.ObjectThemeColor = 2
;~ $word.Selection.ShapeRange.Fill.BackColor.TintAndShade = 0.8
;~ $word.Selection.ShapeRange.Fill.Visible = -1;msoTrue = -1
;~ $word.Selection.ShapeRange.Fill.TwoColorGradient(1, 1)
;~ ToolTip("Etape 2", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = 1
;~ $word.Selection.ShapeRange.Line.ForeColor.TintAndShade = -0.05
;~ $word.Selection.ShapeRange.Line.Weight = 3
;~ $word.Selection.ShapeRange.Line.Style = 1 ;msoLineSingle = 1
;~ $word.Selection.ShapeRange.Line.Visible = -1
;~ ToolTip("Etape 3", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.Shadow.Type = 3
;~ $word.Selection.ShapeRange.Shadow.ForeColor.ObjectThemeColor = 4
;~ $word.Selection.ShapeRange.Shadow.ForeColor.TintAndShade = -0.5
;~ $word.Selection.ShapeRange.Shadow.Transparency = 0.5
;~ $word.Selection.ShapeRange.Shadow.OffsetX = 1
;~ $word.Selection.ShapeRange.Shadow.OffsetY = 2
;~ $word.Selection.ShapeRange.Shadow.Visible = -1
;~ ToolTip("Etape 4", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.ThreeD.Visible = -1
;~ ToolTip("Etape 5", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.TextFrame.TextRange.Select
;~ $word.Selection.Collapse
;~ $word.Selection.TypeText("Ici le texte")
;~ $word.Selection.ParagraphFormat.Alignment = 1 ; wdAlignParagraphCenter = 1

;~ $word.Selection.TypeParagraph
;~ $word.Selection.InlineShapes.AddPicture("D:\Utilisateurs\Public\Pictures\Sample Pictures\Desert.jpg", 0, 1)
;~ $word.showMe

msgbox(64,"test"," Le nom du createur est "&$word.Creator &@LF & "Le nom d'utilisateur est "&$word.UserName &@LF & "L'imprimante active est" &$word.ActivePrinter& @lf &"Le nom du produit utilisé est"&$word.ProductCode &$word.MailSystem )
;~ $word.PrintOut
msgbox(64,"test",$word.GetDefaultTheme(1))
msgbox(64,"toto",$word.ListCommands)

sleep(500)
 $word.CheckSpelling()
 $word.CheckGrammar()


    $word.ActiveDocument.SendMail
    $word.ActiveDocument.SendMailAttach = True
    $word.ActiveDocument.Subject("test mail")
;~  $word.ChangeFileOpenDirectory ("D:\Utilisateurs\jcaspar\Desktop\")
;~     $word.ActiveDocument.SaveAs ("test.docx")
;~ $word.objMailIt.Attachments.Add($word.ActiveDocument.FullName)
;~ $word.objMailIt.To("jeanmarc.caspar@gmail.com")
;~ $word.objMailIt.Subject = $word.ActiveDocument.Name
;~ $word.objMailIt.BodyFormat =1
;~ $word.objMailIt.Body = $word.ActiveDocument.Range
;~ [b]$word.ActiveDocument.Subject = "Test Sujet"[/b]
;~ [b]$word.ActiveDocument.Body = "Le texte à ajouter "[/b]
;~ $word.ActiveDocument.Attachments.Add($word.ThisDocument.Path & "\" & $word.ThisDocument.Name)
;~ [b]$word.ActiveDocument.$word.to("test@test.fr")[/b]
;~ $word.Printout
$word.quit




 

[jguinch]

Je pense que le plus simple sera d'enregistrer ton document, fermer Word et utiliser les objets Outlook pour envoyer le mail avec la pièce jointe.
voir ici pour un exemple en vb : https://support.microsoft.com/en-us/kb/161088

[jcaspar]

M erci pour vos conseils

Voici mon code qui fonctionne reste à indiquer de sauvegarder le document word en cours

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_type=a3x
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Run_Debug_Mode=Y                 ;(Y/N) Run Script with console debugging. Default=N
#AutoIt3Wrapper_Run_Debug=On                     ;(On/Off) Switch debugging on/off

local $nom = "Le nom d'utilisateur est " & @username
local $ip = "L'adresse IP du PC est :" & @IPAddress1
local $domaine = "Vous êtes connecté au domaine:" & @LogonDomain
local $serveur = "Vous êtes connecté au serveur:" & @LogonServer
local $os = "Votre système d'exploitation est le suivant :" & @OSVersion & @LF & " La langue est " & @OSlang & @LF & "Le service Pack est: " & @OSServicePack
Global $wdColorRed
$word = ObjCreate("Word.Application")
$word.helpTool()
$word.visible = True
$word.Selection.WholeStory
$word.Documents.Add
$word.Selection.TypeText($nom)
$word.Selection.WholeStory
$word.Selection.Style = "Titre"
$word.Selection.insert
$word.Selection.TypeText($ip)
$word.Selection.Style = "Titre 1"
$word.Selection.TypeParagraph
$word.Selection.TypeText($nom)
$word.Selection.Style = "Titre 2"
$word.Selection.TypeParagraph
$word.Selection.TypeText($domaine)
$word.Selection.Style = "Titre 3"
$word.Selection.TypeParagraph
$word.Selection.TypeText($serveur)
$word.Selection.Style = "Titre 4"
$word.Selection.TypeParagraph
$word.Selection.TypeText($os)
$word.Selection.Style = "Titre 5"
$word.Selection.TypeParagraph

;~  tableau automatique
$word.ActiveDocument.Tables.Add($word.Selection.Range, 5, 7)

With $word.Selection.Tables(1)
    If .Style <> "Grille du tableau" Then
        .Style = "Grille du tableau"
    EndIf
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = True
    .ApplyStyleLastColumn = False
    .ApplyStyleRowBands = True
    .ApplyStyleColumnBands = False
EndWith


for $i = 0 to 34 step 1
    $j = $i + 5 * 2 / 3
    $word.Selection.TypeText("La valeur de la cellule " & $i & "est de" & $j)
    sleep(100)
    $word.Selection.MoveRight(1)
    $word.Selection.Font.Color = $wdColorRed
    $word.Selection.Font.Color($wdColorRed)
Next

$word.Selection.TypeParagraph
$word.Selection.TypeText("  ")

;~ tableau manuel

$word.ActiveDocument.Tables.Add($word.Selection.Range, 5, 7)

With $word.Selection.Tables(1)
    If .Style <> "Grille du tableau" Then
        .Style = "Grille du tableau"
    EndIf
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = True
    .ApplyStyleLastColumn = False
    .ApplyStyleRowBands = True
    .ApplyStyleColumnBands = False

EndWith

$word.Selection.TypeText("Leo")
$word.Selection.Font.ColorIndex = 10
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Firmin")
$word.Selection.Font.Color(5)
$word.Selection.MoveRight(1)
$word.Selection.Font.Color = "wdColorRed"
$word.Selection.TypeText("Louis")
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Elise")
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Lucie")

$word.Selection.MoveRight(1)
$word.Selection.TypeText("Tom")
$word.Selection.MoveRight(1)
$word.Selection.TypeText("Jules")
$word.Selection.MoveRight(1)
$word.Selection.MoveLeft
$word.Selection.MoveDown
$word.Selection.TypeText("Lupita")
$word.Selection.MoveDown
$word.Selection.MoveDown
$word.Selection.MoveDown
$word.Selection.MoveDown
$word.Selection.MoveDown

$word.ActiveDocument.Tables(1).Cell(1, 1).Range.Shading.BackgroundPatternColor("wdColorAqua")

;~ local $msoShapeRectangle
;~ $word.ActiveDocument.Shapes.AddShape($msoShapeRectangle, 122.25, 599.25, 229.5, 55.5).Select
;~ $word.Selection.ShapeRange.Fill.Solid
;~ $word.Selection.ShapeRange.Fill.ForeColor.ObjectThemeColor = "wdThemeColorAccent2"
;~ $word.Selection.ShapeRange.Fill.ForeColor.TintAndShade = "0#"
;~ $word.Selection.ShapeRange.Fill.BackColor.RGB(255, 255, 255)
;~ $word.Selection.ShapeRange.Fill.Visible = "msoTrue"
;~ $word.Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = "wdThemeColorMainLight1"
;~ $word.Selection.ShapeRange.Line.ForeColor.TintAndShade = "-0.05"
;~ $word.Selection.ShapeRange.Line.Weight = "3#"
;~ $word.Selection.ShapeRange.Line.Style = "msoLineSingle"
;~ $word.Selection.ShapeRange.Line.Visible = "msoTrue"
;~ $word.Selection.ShapeRange.Shadow.Type = "msoShadow3"
;~ $word.Selection.ShapeRange.Shadow.ForeColor.ObjectThemeColor = "wdThemeColorAccent2"
;~ $word.Selection.ShapeRange.Shadow.ForeColor.TintAndShade = "-0.5"
;~ $word.Selection.ShapeRange.Shadow.Transparency = "0.5"
;~ $word.Selection.ShapeRange.Shadow.OffsetX = "1#"
;~ $word.Selection.ShapeRange.Shadow.OffsetY = "2#"
;~ $word.Selection.ShapeRange.Shadow.Visible = "msoTrue"
;~ $word.Selection.ShapeRange.ThreeD.Visible = "msoFalse"
;~ $word.ActiveDocument.Shapes.AddShape(1, 95.25, 78.75, 285.75, 146.25).Select;msoShapeRectangle = 1
;~ $word.Selection.ShapeRange.Fill.Solid
;~ $word.Selection.ShapeRange.Fill.ForeColor.ObjectThemeColor = 4 ;wdThemeColorAccent1 = 4
;~ $word.Selection.ShapeRange.Fill.ForeColor.TintAndShade = 0.4
;~ ToolTip("Etape 1", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.Fill.BackColor.ObjectThemeColor = 2
;~ $word.Selection.ShapeRange.Fill.BackColor.TintAndShade = 0.8
;~ $word.Selection.ShapeRange.Fill.Visible = -1;msoTrue = -1
;~ $word.Selection.ShapeRange.Fill.TwoColorGradient(1, 1)
;~ ToolTip("Etape 2", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.Line.ForeColor.ObjectThemeColor = 1
;~ $word.Selection.ShapeRange.Line.ForeColor.TintAndShade = -0.05
;~ $word.Selection.ShapeRange.Line.Weight = 3
;~ $word.Selection.ShapeRange.Line.Style = 1 ;msoLineSingle = 1
;~ $word.Selection.ShapeRange.Line.Visible = -1
;~ ToolTip("Etape 3", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.Shadow.Type = 3
;~ $word.Selection.ShapeRange.Shadow.ForeColor.ObjectThemeColor = 4
;~ $word.Selection.ShapeRange.Shadow.ForeColor.TintAndShade = -0.5
;~ $word.Selection.ShapeRange.Shadow.Transparency = 0.5
;~ $word.Selection.ShapeRange.Shadow.OffsetX = 1
;~ $word.Selection.ShapeRange.Shadow.OffsetY = 2
;~ $word.Selection.ShapeRange.Shadow.Visible = -1
;~ ToolTip("Etape 4", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.ThreeD.Visible = -1
;~ ToolTip("Etape 5", 100, 300)
;~ Sleep(2000)
;~ $word.Selection.ShapeRange.TextFrame.TextRange.Select
;~ $word.Selection.Collapse
;~ $word.Selection.TypeText("Ici le texte")
;~ $word.Selection.ParagraphFormat.Alignment = 1 ; wdAlignParagraphCenter = 1
;~ $word.Selection.TypeParagraph

;~ Ajouter photo
;~ $word.Selection.InlineShapes.AddPicture("D:\Utilisateurs\Public\Pictures\Sample Pictures\Desert.jpg", 0, 1)
;~ $word.showMe

msgbox(64, "test", " Le nom du createur est " & $word.Creator & @LF & "Le nom d'utilisateur est " & $word.UserName & @LF & "L'imprimante active est" & $word.ActivePrinter & @lf & "Le nom du produit utilisé est" & $word.ProductCode & $word.MailSystem)
sleep(500)
;~  $word.CheckSpelling
;~  $word.CheckGrammar

Local $olMailItem = 0
Local $olMailItem = 0
Local $olFormatrichText = 3
Local $olImportanceNormal = 1
$outlook = ObjCreate("Outlook.Application")
$oOMail = $outlook.createitem($olMailItem)


$outlook = ObjCreate("Outlook.Application")
$oOMail = $outlook.createitem($olMailItem)

With $oOMail
    .To =("lobocho@gmail.com")
    .Subject = "mon sujet"
    .BodyFormat = $olFormatrichText
    .Importance = $olImportanceNormal
    .Body = "Bienvenue "
    .Attachments.Add("d:\test.txt")
    .Display
    .Send
EndWith
;~ $word.Printout
$word.quit




 

[walkson]

Bonjour,
Pour aller dans le même sens que jguinch

► Afficher le texte

Code : Tout sélectionner

    #AutoIt3Wrapper_Run_Debug_Mode=Y                 ;(Y/N) Run Script with console debugging. Default=N
    #AutoIt3Wrapper_Run_Debug=On

Run(@ProgramFilesDir & "\Microsoft Office\Office12\OUTLOOK.EXE")
Sleep(10000)
MsgBox(0,"","outlook se fait attendre")
bb()
Func bb()
    Global Const $olMailItem = 0 ;A supprimer si include outlook
    If Not FileExists(@ProgramFilesDir & "\Microsoft Office\Office12\OUTLOOK.EXE") Then Exit MsgBox(0,"Erreur","Office12\OUTLOOK.EXE inexistant")
    If Not ProcessExists("OUTLOOK.EXE") Then
        Run(@ProgramFilesDir & "\Microsoft Office\Office12\OUTLOOK.EXE")
    EndIf
    While 1
    Sleep(1000)
    If ProcessExists("OUTLOOK.EXE") Then
    $ola = ObjGet("","Outlook.Application")
    If Not @error Then ExitLoop
    EndIf
    WEnd
    $maiMessage = $ola.CreateItem($olMailItem)
With $maiMessage
    .Subject = "Subject"
    .Recipients.Add ("recipient@mail.com")
    .cc = "recipient2@mail.com"
    .Body = "AAAA"
    .Attachments.Add (@DesktopDir & "\Asup.doc")
    .Send
EndWith
EndFunc
 

Outlook est difficile à faire fonctionner. A priori, ObjCreate("Outlook.Application") ne fonctionne pas. Il faut lancer séparément Outlook par un Run(), attendre qu'il soit lancè puis Objget(). Si on va trop vite => Error . Idéalement, c'est de faire tourner Outlook en tâche de fond (ou dés le début de votre script, dans votre cas)
Je me suis permis de joindre des UDF des constants de word, outlook et Mso (Et non ! "Global $wdColorRed " sans valeur, ça ne marche pas ) En utilisant les UDF, dés que vous avez wdxxx ou Msoxxx, vous pouvez mettre $wdxxx ou $Msoxxx sans faire de déclarations de Const
Remarque: les UDF ne sont pas compatibles avec Wordconstants.au3 et excelconstants.au3 (il y aura des doubles déclarations)