> Tous les forums > Forum Windows 7
 Tutoriel Blat.exe ou .bat pour email automatique???
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Bens770
  Posté le 29/05/2013 @ 00:39 
Aller en bas de la page 
Petit astucien

OPTION 1:
Bonsoir a tous !!
Je fait apel a vous aujourdhui car j'ai un grand projet d'automatisation d'envoie des mails (avec pieces jointes ) en un seul click
apres recherche je suis tomber sur le programe blat.exe et un tutoriel inconprehensible pour un debutant :

http://ntips.free.fr/result.php3?id=138/

1) Copier blat.exe dans C:\Winnt\System32 <<< ca c'est fait !

2) Taper : blat -install Serveur_SMTP boite_crée@mon_entreprise.com
exemple : blat -install Exchansrv.dupont.com balapli@dupont.com pour déclarer comme serveur SMTP le serveur Exchansrv et la boîte balapli que nous avons crée pour l'opération, dans l'entreprise Dupont. <<< ou je tape ? jle met ou tous ca ???

3) Pour envoyer un message nommé Message.txt, taper en ligne de commande ou par un batch :
blat Message.txt -subject "Ceci est le sujet du message" -to destinataire@dupont.com - cc "autre_destinataire@dupont.com, perso@aol.com" - i "Napoléon.Bonaparte@Elbe.fr" - f "arthur@dupont.com" -bcc "directeur@dupont.com" - attach c:\temp\log.txt
<<< ou je tape cette ligne ou je met le .bat ?
Enfin bref c'est pas clair ...

OPTION 2:
Ya pas un truc plus simple genre un fichier .bat? avec

1) Adresse du destinataire
2) Objet
3) Adresse de l'envoyeur
4) lien vers Message.txt
5) Lien vers les pieces jointes a inserez

Enfin j'espere avoir etait clair ! C'est quoi le plus simple ? Et si possible deja ecrit jm'y connais pas du tout Merci !!

Publicité
f69815
 Posté le 29/05/2013 à 13:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour bens770,

personnellement j'utilise un module en vba dans excel.

si cela t'interresse le voici, à toi d'adapter ce qui est en rouge, pour lancer exécuter :EnvoiMailPlanning :

ublic Const MAIL_SENDUSING = 2 ' ne pas changer

Public Const MAIL_AUTHENTICATE = 1 ' ne pas changer

Public Const MAIL_CPT_SENDUSR = "xxxxxxxx" ' nom de connexion à la boite mail de l'expéditeur

Public Const MAIL_CPT_SENDPASS = xxxxx 'mot de passe d'accès à la boite mail de l'expéditeur

Public Const MAIL_FROM = "xxxx@yyyyyy" ' adresse mail de l'expéditeur

Public Const MAIL_SMTP_SERVER = "xxxxxxxxxxxxxx" ' serveur smtp de la boite mail de l'expéditeur

Public Const MAIL_SMTP_SERVERPORT = 25 ' ne pas changer
___________________________________________________________________________________________________________
Sub EnvoiMailPlanning()
Msg = "Prêt pour envoyer le Mel"
Style = vbYesNo + vbExclamation
Title = "Envoi Mel"
Test = ""
Application.ScreenUpdating = False
Test = MsgBox(Msg, Style, Title)

If Test = vbYes Then
NomFichierMel = Workbooks(ActiveWorkbook.Name).Path & "\SauvegardeMois\Ecole du " & Month(Range("B3")) & "-" & Year(Range("B3")) & ".xlsx"

Objet = "Fichier pour affichage réunion du Mardi" ' rempli l'objet du message
Call SMTPSendMail("xxxxx@free.fr", "Fichier pour la réunion du mardi ", NomFichier) ' destinataire, message écrit dans le mail,NomFichier est le chemin complet du fichier sauvegarder cette variable permet d'attacher la pièce jointe
'============================================
'Ne pas effacer la ligne ci-dessous, elle permet de changer le destinataire du mel pour les essais
'Call SMTPSendMail("@@@@@@@@@@@@@@@@@@@@", "Fichier pour la réunion du mardi ", NomFichierMel) 'destinataire, message écrit dans le mail,NomFichier est le chemin complet du fichier sauvegarder cette variable permet d'attacher la pièce jointe, ligne pour test
'============================================
Else
Application.ScreenUpdating = True
Exit Sub
End If
End Sub

'''""""""""""""""""""""""""""""""""""""""""""""""""""'''
'
' FONCTION : envoyer un mail par SMTP
' pstrTo : 1 ou plusieurs destinataire(s)
' pstrSubject : objet du mail
' pvarAttachFile : 1 ou plusieurs fichiers joints - string ou array de string
'
'''""""""""""""""""""""""""""""""""""""""""""""""""""'''
Public Function SMTPSendMail(pstrTo As String, pstrSubject As String, Optional pvarAttachFile As Variant) As Boolean
On Error GoTo SMTPSendMail_Err

Dim i As Long
Dim objEmail As New CDO.Message
Set objEmail = CreateObject("CDO.Message")

objEmail.From = MAIL_FROM
objEmail.To = pstrTo
objEmail.Subject = pstrSubject

' Aucun corps de message, uniquement la pièce jointe
' laisser un TextBody avec chaine vide, sinon le mail peut planter (pièce jointe incomplète)
objEmail.TextBody = "A toi de jouer maintenant, salutations, Philippe"

' Ajout de la pièce jointe, 1 ou plusieurs fichiers
If Not IsMissing(pvarAttachFile) Then
If IsArray(pvarAttachFile) Then
' parcourrir le tableau
For i = LBound(pvarAttachFile) To UBound(pvarAttachFile)
objEmail.AddAttachment pvarAttachFile(i)
Next i
Else
objEmail.AddAttachment pvarAttachFile
End If
End If

With objEmail.Configuration.Fields
.Item(CdoConfiguration.cdoSendUsingMethod) = MAIL_SENDUSING
.Item(CdoConfiguration.cdoSMTPAuthenticate) = MAIL_AUTHENTICATE
.Item(CdoConfiguration.cdoSendUserName) = MAIL_CPT_SENDUSR
.Item(CdoConfiguration.cdoSendPassword) = MAIL_CPT_SENDPASS
.Item(CdoConfiguration.cdoSMTPServer) = MAIL_SMTP_SERVER
.Item(CdoConfiguration.cdoSMTPServerPort) = MAIL_SMTP_SERVERPORT
.Update
End With
objEmail.Send

SMTPSendMail = True
MsgBox "Mel envoyé à : " & pstrTo
Exit Function
SMTPSendMail_Err:
MsgBox Err.Description

End Function

=============================================================

bon courage

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
85,11 €SSD Crucial P1 1 To (3D NAND, NVMe, PCIe, M.2) à 85,11 € livré
Valable jusqu'au 25 Janvier

Amazon Allemagne fait une promotion sur le SSD Crucial P1 1 To (3D NAND, NVMe, PCIe, M.2) qui passe à 80,57 € (avec la TVA ajustée). Comptez 4,54 € pour la livraison en France soit un total de 85,11 € livré. On le trouve ailleurs à partir de 110 €. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 2 000/1 750 Mo/s. Il est garanti 5 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
18,90 €Switch Gigabit TP-Link 8 ports métal à 18,90 €
Valable jusqu'au 28 Janvier

Amazon propose actuellement le switch Gigabit TP-Link TL-SG108 8 ports (10/100/1000) dans un boîtier métal à 18,90 €. On le trouve habituellement autour de 30 €. 


> Voir l'offre
229 €Smartphone Samsung M31 (6,4 pouces FHD+, 6 Go RAM, 64 Go) à 229 €
Valable jusqu'au 25 Janvier

Amazon fait une belle promotion sur le nouveau smartphone Samsung M31 qui passe à 229 € livré gratuitement au lieu de 279 €. Le smartphone Samsung Galaxy M31 dispose d'un écran Super AMOLED d'une résolution de 1080 x 2340 pixels, d'un processeur 8 coeurs Exynos 9611 et 6 Go de RAM. 64 Go de stockage sont présents et sont extensibles par MicroSD (512 Go max).

Pour les moments inattendus de la vie, le quadruple appareil photo est idéal. Prenez de superbes photos de votre monde avec un appareil photo principal de 64 MP ou obtenez une image plus large avec l’angle de vue de 123 ° de l’objectif ultra grand angle 8 MP. Le capteur de profondeur 5 MP ajoute un flou d’arrière-plan et l’objectif macro 5 MP optimise la mise au point sur les gros plans. A l'avant, un appareil photo 32 MP vous permettra de réaliser vos selphies avec un léger flou d'arrière-plan grâce à la mise au point en direct.

Il est soutenu par une batterie de 6000 mAh avec recharge rapide. Les fonctionnalités de connectivité du smartphone incluent WiFi, Bluetooth, GPS, Volte, etc. Le Galaxy M31 dispose d’un capteur d’empreinte digitale à l’arrière pour vous connecter aux applications compatibles et déverrouiller votre appareil en toute simplicité. Le tout tourne sous Android 10.


> Voir l'offre

Sujets relatifs
Configuration du Bios pour redemarrage automatique hp XW 4400 WORKSTATION
Tutoriel en français pour SyncBack Free V 6.5.4.0
Logiciel emission email automatique
Tutoriel Français pour DriverMax ?
quelle version d'INTERNET EXPLORER pour Wibndows 7
Trouver un programme pour lire hosts
Pocédure pour créer 1 icône sur la barre de tâche
[Résolu] Pilote pour mon lecteur CD/DVD (HP BDDVDRW CT41N)
Messaeg pour passer à Windows 10
Rapports pour aide à l'optimisation
Plus de sujets relatifs à Tutoriel Blat.exe ou .bat pour email automatique???
 > Tous les forums > Forum Windows 7