to attach a file to an email - (Moved)

[SANOGO]

Hello;
I did a little program there is a part that tires me. this part is sending an email with an attached file, the file is called log.txt the problem is at the join of the file I can not attach the file in the mail otherwise no problem with sending the mail. Thank you !
here is the code concerning the sending of the mail

; parametrages de l'envoi du mail
Local $olMailItem = 0
Local $olFormatRichText = 3
Local $olImportanceLow = 0
Local $olImportanceNormal = 1
Local $olImportanceHigh = 2
Local $olByValue = 1
Local $olFormatHTML = 2
Local $olFormatPlain = 1

Local $objet = "Rapport des ping et état des services"
Local $mailto = "louka12@gmail.com" ; Adresse d'envoi
Local $cc = "louka12@gmail.com" ; envoi copie

    ; On envoie le mail avec outlook
    $oOApp = ObjCreate("Outlook.Application")
    $oOMail = $oOApp.CreateItem ($olMailItem)
    $oOMail.Save

    $s_AttachFiles = "log.txt"

    With $oOMail
        .To = ($mailto)
        .cc = ($cc)
        .Subject = $objet
        .BodyFormat = $olFormatHTML
        .Importance = $olImportanceNormal
        .AttachFiles = $s_AttachFiles
        .HTMLBody = "Bonjour,<br><br>Voici le rapport des ping et l'état des services à partir de diagnostic système"
        .Send
    EndWith
    $oOApp=0

    EndSwitch
WEnd

[water]

I suggest you have a look at my OutlookEX UDF. 

[Melba23]

Moved to the appropriate forum.

Moderation Team

[Zedna]

Quote

   $s_AttachFiles = "log.txt"

Firstly use FULL (absolute) path like this:

   $s_AttachFiles = @ScriptDir & "\log.txt"

or

   $s_AttachFiles = "C:\Dir1\log.txt"

 

Edited July 13, 2019 by Zedna