[R] Suite: Envoi de mail automatique avec piece jointe

[Boulanza]

Bonjour,
Le script d'envoie de mail automatique avec pièce jointe trouvé sur ce forum marche impeccablement pour envoyer mail et pour envoyer aussi des fichiers joints de petite taille uniquement.
Y-a-t'il un moyen de modifier le scripte pour qu'il puisse d'envoyer des fichiers de grande taille ?
Merci d’avance pour votre aide.

► Afficher le texte

;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
$s_SmtpServer = "MailServer" ; address for the smtp-server to use - REQUIRED
$s_FromName = "Name" ; name from who the email was sent
$s_FromAddress = "your@Email.Address.com" ; address from where the mail should come
$s_ToAddress = "your@Email.Address.com" ; destination address of the email - REQUIRED
$s_Subject = "Userinfo" ; subject from the email - can be anything you want it to be
$as_Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail
$s_AttachFiles = "" ; the file you want to attach- leave blank if not needed
$s_CcAddress = "CCadress1@test.com" ; address for cc - leave blank if not needed
$s_BccAddress = "BCCadress1@test.com" ; address for bcc - leave blank if not needed
$s_Username = "******" ; username for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$s_Password = "********" ; password for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; 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($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Rc:" & $rc)
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/config ... /sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... smtpserver") = $s_SmtpServer
$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
; Sent the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
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

[orax]

Je pense que la limitation de taille est causée par le serveur, non le script. On ne peut généralement pas envoyer des fichiers de grande taille en pièce jointe.
As-tu essayé d'envoyer un fichier joint volumineux manuellement (sans utiliser le script) pour voir si le problème serait le même ?
PS : le lien que t'as mis est incomplet.

[Boulanza]

Merci pour votre réponse.
orax: As-tu essayé d'envoyer un fichier joint volumineux manuellement (sans utiliser le script)?

Oui sans le moindre problème. J'ai un serveur dédié

[Boulanza]

Le problème vient de Gmail. Gmail ne permet pas d'envoyer ou de recevoir des fichiers exécutables portant l'extension .exe. Comment éviter cela...

[DimVar]

Bonjour,

Historiquement, il suffisait de renommer l'extension de fichier.
Désormais, compression Winrar (ou autre) avec mot de passe et cryptage des noms de fichier.


Cdlt. Dimvar.

[Boulanza]

Bonjour,
Envoi mail marche sans problème.
Par contre le Fichier joint ne suit pas. c.a.d.: le fichier joint n'est pas exporté?
Pouvez-vous revoir le scripte svp afin que le fichier joint marche.
Merci pour votre aide.
Cordialement.

► Afficher le texte

#include <Inet.au3>
Global $FichierJoint= @ScriptDir&"\test.txt"
Local $s_SmtpServer = "smtp.gmail.com"
Local $s_FromName = "Le nom qui s'affichera dans le champs Expéditeur"
Local $s_FromAddress = "XXXX@gmail.com" ;"L'adresse mail d'envoi"
Local $s_ToAddress = "XXXX@gmail.com";"L'adresse mail de destination"
Local $s_Subject = "Le sujet du mail"
Local $s_AttachFiles = $FichierJoint ;fichier joint
Local $as_Body[2]
$as_Body[0] = "Première ligne de contenu du mail"
$as_Body[1] = "Deuxième ligne"

Local $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Félicitation !", "Mail envoyé avec succès")
Else
MsgBox(0, "Erreur!", "L'envoi du mail a échoué : code d'erreur " & $err)
EndIf
;======================================

[DimVar]

Bonjour,

Est ce qu'une autre extension de fichier fonctionne ? (Jpg, zip, ...)
Le script ne contient pas d'erreur, voyez coté retour SMTP.

Cdlt, Dimvar.

[Y01]

Bonjour,

Quelle taille fait le fichier à envoyer ?

Dans le premier post, je vois que les petits fichiers peuvent être joint mais pas les volumineux, ensuite j'ai vu que le problème était lié à GMAIL.

Pour rappel, gmail ne permet pas de dépasser les 25mo par mail.

Source

[Boulanza]

Bonjour,
Pour DimVar:
Aucune autre extension de fichier ne fonctionne ? (Jpg, zip, ...)
Je crois que quelque chose manque dans le script.
Non, le problème ne vient pas du retour SMTP. Mon SMTP marche avec ou sans fichier joint.

Pour Y01:
SMTP.gmail.com n'accepte pas les .exe, iso , bin... seulement zip, rar ... d'une taille ne dépassant pas les 25mo par mail.

Cordialement.

[Boulanza]

En modifiant le Port = 25 tout est entré dans l'ordre.

[walkson]

Bonsoir,

SMTP.gmail.com n'accepte pas les .exe, iso , bin... seulement zip, rar ... d'une taille ne dépassant pas les 25mo par mail.

Ce n'est pas tout à fait exact https://support.google.com/mail/answer/6590?hl=fr
iso et bin passent, zip et rar ne passent pas et encore moins avec MP
Mais si vous renommez fichier.zip en fichier.ABC cela passe...

[DimVar]

...et encore moins avec MP...

Essayez et vous verrez que cela fonctionne (je viens de faire le test).

Cdlt, Dimvar.

[walkson]

Essayez et vous verrez que cela fonctionne

Oui, c'est vrai mais hier j'ai testé un Zip contenant un autre zip et des fichiers et là, ça ne passe plus
De toutes façons, c'est du n'importe quoi puisque l'on peut modifier l'extension. Ils finiront par interdire les AU3 aussi...