Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1683 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Programmation E-Mail Automatique

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Programmation E-Mail Automatique

n°2063560
kivis
Posté le 15-03-2011 à 12:13:33  profilanswer
 

Bonjour à tous ,
 
Je suis nouveau sur le forum , je viens sur le forum pour trouver une idée de développement pour ma société.  
Nous avons la problématique suivante :
1. Nous envoyons des mails à une autre société de manière hebdomadaire, il y a 1000 contrats à envoyer en format PDF.  
2. La société en question souhaite recevoir chaqu'un des contrats sous la forme 1 PDF de 3 pages envoyé par mail avec à chaque fois dans l'objet le nom du client.  
 
Donc, imaginez scanner 1000 contrats ( de 3 pages ) pour en faire à chaque fois un pdf qu'on doit renomer puis envoyer par mail avec le nom du fichier qui correspond  
au nom du client .... C'est à devenir fou.  
 
Mon idée : Réaliser un petit soft qui permetrait de recuperer un PDF de copier coller le nom du PDF dans l'objet du mail ... Mais est ce possible ?  
 
Ma question est : Que puis faire pour améliorer ce processus avec un outil informatique ( sarbacane etc... ), ou est ce que je dois me lancer dans de la programmation ?  
Est il possible de réaliser un tel programme , j'ai de bonnes connaissances en VB.  
 
Merci pour vos idées elles sont toutes la bienvenue.

mood
Publicité
Posté le 15-03-2011 à 12:13:33  profilanswer
 

n°2063604
kiki29
Posté le 15-03-2011 à 13:55:51  profilanswer
 

Salut,voir pour cela http://access.developpez.com/faq/?page=Outlook et http://excel.developpez.com/faq/?page=Messagerie et particulierement CDO


Message édité par kiki29 le 15-03-2011 à 13:57:39
n°2063989
hazzelthor​n
Payday vador
Posté le 16-03-2011 à 11:11:04  profilanswer
 

j'ai realisé une application d'envoi massif de mail avec le body du mail personnalise en fonction du client si tu veux je peux t'envoyer mes sources :)  et en piece jointe le pdf associe a la societe :)

 

c'est du VB.net :)

 

EDIT : le body du mail correspond a un template html lu par l'appli et les motifs qu'il trouvent sont remplacer par des valeurs que j'vais chercher dans une BDD, en l'occurrence SQL server 2005


Message édité par hazzelthorn le 16-03-2011 à 11:12:28
n°2064065
boomy29
PSN: tintine29
Posté le 16-03-2011 à 14:00:12  profilanswer
 

moi ça m’intéresse pas mal tes sources en tout cas :D

n°2064094
hazzelthor​n
Payday vador
Posté le 16-03-2011 à 14:32:46  profilanswer
 

ben envoie moi un PM et je t'envoies les sources sur ton mail, l'application possèdent une interface :)  
 
je vais linker a quoi elle ressemble ainsi que son fonctionnement :)  
 
EDIT : dans quelques minutes :)
 
 
Voilà le module :  
 

Code :
  1. Imports System.Threading
  2. Imports System.Net.Mail
  3. Imports System.Text.RegularExpressions
  4. Imports System.Data.SqlClient
  5. Imports System
  6. Imports System.IO
  7. Imports System.Windows.Forms
  8. Imports Microsoft.VisualBasic
  9. Imports System.Drawing
  11. Module Module1
  14.     Dim con_strg As String = System.Configuration.ConfigurationSettings.AppSettings("conSQL" )
  15.     Sub ChargeTable(ByVal RqtCtc As String, ByVal TableName As String, ByVal DatasetCtc As System.Data.DataSet)
  16.         Dim con As New SqlConnection()
  17.         Dim sqlda As SqlDataAdapter
  18.         con = New SqlConnection(con_strg)
  19.         con.Open()
  20.         sqlda = New SqlDataAdapter(RqtCtc, con)
  21.         Try
  22.             ' Récupération des données dans une table nomtable
  23.             sqlda.Fill(DatasetCtc, TableName)
  24.         Catch ex As Exception
  25.             MsgBox(ex.ToString)
  26.         Finally
  27.             con.Close()
  28.         End Try
  29.     End Sub
  31.     Function lire_replace_html(ByVal fichier As String, ByVal position As String) As ArrayList
  32.         Dim civil As String = System.Configuration.ConfigurationSettings.AppSettings("Civilite" )
  33.         Dim version As String = System.Configuration.ConfigurationSettings.AppSettings("Version" )
  34.         Dim RespCompte As String = System.Configuration.ConfigurationSettings.AppSettings("ResponsableCompte" )
  35.         Dim DataMail As New Data.DataSet()
  36.         Dim requete As String = System.Configuration.ConfigurationSettings.AppSettings("Rqt1" )
  37.         Try
  38.             ChargeTable(requete, "RECHERCHE", DataMail)
  39.         Catch ex As Exception
  40.             MsgBox(ex.ToString)
  41.         End Try
  43.      
  44.         'Ici on compte le nombre de lignes et de colonnes du datatable
  45.         Dim maligne As String
  46.         Dim monlecteur As StreamReader
  47.         Dim meslignes As New ArrayList
  48.         Dim template As Regex = New Regex(civil)
  49.         Dim template2 As Regex = New Regex(version)
  50.         Dim template3 As Regex = New Regex(RespCompte)
  51.         Try
  52.             monlecteur = New StreamReader(fichier)
  53.             With monlecteur
  54.                 .BaseStream.Seek(0, SeekOrigin.Begin)
  56.                 While (.Peek >= 0)
  57.                     maligne = .ReadLine.ToString()
  58.                     'test si il y a le motif civilite dans ma ligne lue
  59.                     If InStr(maligne, civil) <> 0 Then
  60.                         meslignes.Add(Regex.Replace(maligne, civil, Civilite(meslignes, DataMail, position)))
  61.                         'test s'il y a le motif version dans ma ligne lue
  62.                     ElseIf InStr(maligne, version) <> 0 Then
  63.                         meslignes.Add(Regex.Replace(maligne, version, System.Configuration.ConfigurationSettings.AppSettings("Numero" )))
  64.                         'test s'il y a le motif responsablecompte dans ma ligne lue
  65.                     ElseIf InStr(maligne, RespCompte) <> 0 Then
  66.                         'si le champ type client de mon datasetmail ne contient pas 'toto' ou 'Autre Client' alors j'affiche le responsable de compte associé
  67.                         If (DataMail.Tables("RECHERCHE" ).Rows(position).Item(6).ToString <> "Autre client" And DataMail.Tables("RECHERCHE" ).Rows(position).Item(6).ToString <> "toto" ) Then
  68.                             meslignes.Add(Regex.Replace(maligne, RespCompte, ResponsableCompte(meslignes, DataMail, position)))
  69.                             'sinon j'affiche toto tutu
  70.                         Else
  71.                             meslignes.Add(Regex.Replace(maligne, RespCompte, ("Responsable Client <a href=mailto:toto@titi.com>toto tutu</a>" )))
  72.                         End If
  73.                         'si aucun des test n'est rempli je recopie ma ligne lu en cours dans mon body de mail
  74.                         Else
  75.                             meslignes.Add(maligne)
  76.                         End If
  77.                 End While
  79.             End With
  80.         Catch ex As Exception
  81.             Console.WriteLine(ex.Message)
  82.         Finally
  83.             monlecteur.Close()
  84.         End Try
  85.         Return meslignes
  87.     End Function
  89.     Function Civilite(ByVal meslignes As ArrayList, ByVal DatasetMail As DataSet, ByVal pos_dataset As Integer) As String
  90.         Dim motif As String
  91.         Dim genre As String
  93.         If DatasetMail.Tables("RECHERCHE" ).Rows(pos_dataset).Item(0) = "Monsieur" Then
  94.             genre = "Cher"
  95.         Else
  96.             genre = "Chère"
  97.         End If
  98.         motif = genre + " " + DatasetMail.Tables("RECHERCHE" ).Rows(pos_dataset).Item(1) + " " + DatasetMail.Tables("RECHERCHE" ).Rows(pos_dataset).Item(2)
  99.         Return motif
  102.     End Function
  104.     Function Array2String(ByVal meslignes As ArrayList) As String
  105.         Dim x As Integer
  106.         Array2String = ""
  107.         For x = 0 To meslignes.Count - 1
  108.             Array2String += meslignes.Item(x).ToString
  109.         Next
  110.         Return Array2String
  111.     End Function
  113.     Function ResponsableCompte(ByVal meslignes As ArrayList, ByVal DatasetMail As DataSet, ByVal pos_dataset As Integer) As String
  114.         Dim toto As Array = Split(DatasetMail.Tables("RECHERCHE" ).Rows(pos_dataset).Item(5), "," )
  115.         Dim nom As String = toto(0)
  116.         Dim prenom As String = toto(1)
  117. 'Requete 2 sert a selectionner les responsable de compte associé aux clients
  118.         Dim requete2 As String = ""
  119.         Dim DataResp As New Data.DataSet()
  120.         Dim mailResp As String
  121.         Try
  122.             ChargeTable(requete2, "RECHERCHE", DataResp)
  123.         Catch ex As Exception
  124.             MsgBox(ex.ToString)
  125.         End Try
  127.         mailResp = "Responsable de Compte <a href=" + "mailto:" + DataResp.Tables("RECHERCHE" ).Rows(0).Item(0).ToString + ">" + DataResp.Tables("RECHERCHE" ).Rows(0).Item(2).ToString + " " + DataResp.Tables("RECHERCHE" ).Rows(0).Item(1).ToString + "</a> pour envisager une migration"
  128.         Return mailResp
  129.     End Function
  130.     Function EmailValide(ByVal mail_address As String) As Boolean
  131.         Dim rexp As New Regex("^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$", RegexOptions.IgnoreCase)
  132.         Return rexp.IsMatch(mail_address)
  133.     End Function
  134. End Module


 
 
 
Mon form
 

Code :
  1. Imports System.Threading
  2. Imports System.Net.Mail
  3. Imports System.Text.RegularExpressions
  4. Imports System.Data.SqlClient
  5. Imports System.DBNull
  6. Imports System
  7. Imports System.IO
  8. Imports System.Windows.Forms
  9. Imports Microsoft.VisualBasic
  10. Imports System.Drawing
  12. Public Class Kimoce2mailing
  13.     Public Sub liste_contact_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles liste_contact.Click
  14.         Dim DataMail As New Data.DataSet()
  15.         Dim requete As String = System.Configuration.ConfigurationSettings.AppSettings("Rqt1" )
  16.         Try
  17.             ChargeTable(requete, "RECHERCHE", DataMail)
  18.         Catch ex As Exception
  19.             MsgBox(ex.ToString)
  20.         End Try
  21.         'Ici on compte le nombre de lignes et de colonnes du datatable
  22.         Dim NbRow As Integer = 0
  23.         Dim nbcol As Integer = DataMail.Tables("RECHERCHE" ).Columns.Count
  25.         NbRow = DataMail.Tables("RECHERCHE" ).Rows.Count
  26.         Dim adresse_mail As String
  27.         Dim fichier As String
  29.         Dim x As Integer
  30.         If option1.Checked = True Then
  31.             TextBox1.Clear()
  32.             fichier = System.Configuration.ConfigurationSettings.AppSettings("CheminFichierMajeur" )
  33.         ElseIf option2.Checked = True Then
  34.             TextBox1.Clear()
  35.             fichier = System.Configuration.ConfigurationSettings.AppSettings("CheminFichierBuild" )
  36.         End If
  37.         TextBox1.AppendText(Environment.NewLine + "Début envoi des mails" + Environment.NewLine)
  38.        
  39.         Dim smtp As New SmtpClient(System.Configuration.ConfigurationSettings.AppSettings("Serveur" ))
  40.         pbar.Visible = True
  41.         pbar.Minimum = 1
  42.         pbar.Value = 1
  43.         pbar.Maximum = NbRow
  44.         pbar.Step = 1
  45.         For x = 0 To NbRow - 1
  46.             Dim mail As New MailMessage()
  47.             adresse_mail = (DataMail.Tables("RECHERCHE" ).Rows(x).Item(4))
  48.             If EmailValide(adresse_mail) = True Then
  49.                 TextBox1.AppendText(Environment.NewLine + "Envoi du mail à " + DataMail.Tables("RECHERCHE" ).Rows(x).Item(2) + " " + DataMail.Tables("RECHERCHE" ).Rows(x).Item(1) + Environment.NewLine)
  50.                 mail.From = New MailAddress(System.Configuration.ConfigurationSettings.AppSettings("AddrFrom" ))
  51.                 mail.To.Add(DataMail.Tables("RECHERCHE" ).Rows(x).Item(4))
  53.                 mail.Bcc.Add(System.Configuration.ConfigurationSettings.AppSettings("AddrCache" ))
  54.                 'set the content
  55.                 If option1.Checked = True Then
  56.                     mail.Subject = System.Configuration.ConfigurationSettings.AppSettings("SujetMajeur" )
  57.                 ElseIf option2.Checked = True Then
  58.                     mail.Subject = System.Configuration.ConfigurationSettings.AppSettings("SujetBuild" )
  59.                 End If
  60.                 mail.Body = Array2String(lire_replace_html(fichier, x))
  61.                 mail.IsBodyHtml = True
  62.                 'add an attachment from the filesystem
  63.                 mail.Attachments.Add(New Attachment(System.Configuration.ConfigurationSettings.AppSettings("PieceJointe" )))
  64.                 'envoi du message
  65.                 smtp.Send(mail)
  66.             End If
  67.             mail = Nothing
  68.             pbar.PerformStep()
  69.         Next
  70.         TextBox1.AppendText(Environment.NewLine + "Fin envoi des mails" + Environment.NewLine)
  71.         Dim mailtrace As New MailMessage()
  72.         Dim erreur As String
  73.         mailtrace.From = New MailAddress(System.Configuration.ConfigurationSettings.AppSettings("AddrFrom" ))
  74.         mailtrace.To.Add(New MailAddress(System.Configuration.ConfigurationSettings.AppSettings("AddrDestTrace" )))
  75.         mailtrace.Subject = "Liste des adresses mails non conforme"
  76.         For x = 0 To NbRow - 1
  77.             adresse_mail = (DataMail.Tables("RECHERCHE" ).Rows(x).Item(4))
  78.             If EmailValide(adresse_mail) = False Then
  79.                 erreur = erreur + DataMail.Tables("RECHERCHE" ).Rows(x).Item(3) + " || " + DataMail.Tables("RECHERCHE" ).Rows(x).Item(2) + " || " + DataMail.Tables("RECHERCHE" ).Rows(x).Item(1) + " || " + DataMail.Tables("RECHERCHE" ).Rows(x).Item(4) + "<br>"
  80.             End If
  81.         Next
  82.         mailtrace.IsBodyHtml = True
  83.         If erreur = "" Then
  84.             mailtrace.Body = "Toutes les adresses mails sont conformes."
  85.         Else
  86.             mailtrace.Body = "Société" + " || " + "Nom" + " || " + "Prénom" + " || " + "Adresse mail" + "<br><br>" + erreur
  87.         End If
  88.         smtp.Send(mailtrace)
  89.         mailtrace = Nothing
  90.     End Sub
  92.     Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
  93.         Me.Dispose()
  94.     End Sub
  96. End Class


 
 
 
 
 
Le fichier de config associé :  
 

Code :
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <configuration>
  4.   <appSettings>
  9.     <!-- REQUETES        Pour selectionner les clients  Pour marquer le signe différent dans la requête SQL utiliser != et pas <> sinon le logiciel ne reconnait pas la requête-->
  10.     <add key="Rqt1" value=","/>
  12.     <!--MAIL-->
  13.     <add key="AddrFrom" value="" />
  14.     <add key="AddrCache" value="" />
  15.     <add key="SujetBuild" value="" />
  16.     <add key="SujetMajeur" value=" />
  17.     <add key="Serveur" value="" />
  18.     <add key="AddrDestTrace" value="" />
  20.     <!--CIVILITE-->
  21.     <add key="Civilite" value ="{civilite}"/>
  24.     <!--SQL-->
  25.     <add key="conSQL" value ="Data Source=toto;Initial catalog=titi;Integrated Security=SSPI"/>
  27.     <!--RESPONSABLE COMPTE-->
  28.     <add key="ResponsableCompte" value="{RC}"/>
  30.     <!--version-->
  31.     <add key="Version" value ="{version}"/>
  32.      <add key="Numero" value =""/>
  34.     <!--FICHIER HTML-->
  35.     <add key="CheminFichierMajeur" value ="C:\build_majeur.html"/>
  36.     <add key="CheminFichierBuild" value ="C:\build_trimestriel.html"/>
  38.     <!--FICHIER JOINT-->
  39.     <add key="PieceJointe" value ="C:\Documents and Settings\toto.pdf"/>
  41.   </appSettings>
  42. </configuration>


 
 
le template HTML qui va bien pour chercher les motifs :  
 

Code :
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >
  3.    <head>
  4.        <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  5.    </head>
  6.    {civilite}
  7.    <br><br>
  8.    Vous &ecirc;tes utilisateur de la solution toto et nous vous en remercions.
  9. <br><br>
  12. Nous avons le plaisir de vous informer que la version {version} de toto est d&eacute;sormais disponible.
  13. <br><br>
  16. A cet effet, nous vous adressons  ci-joint  la &#139;&#139; release &#155;&#155; note associ&eacute;e  dans laquelle vous trouverez
  17. notamment la liste d&eacute;taill&eacute;e des nouvelles fonctionalit&eacute;s mises  &agrave; votre disposition.
  18. <br>
  19. <br>
  20. Afin de b&eacute;n&eacute;ficier de tous les apports de cette nouvelle version majeure, nous vous invitons &agrave; contacter votre {RC}
  21. <br><br>
  22. Nous esp&eacute;rons que ces nouvelles fonctionnalit&eacute;s vous satisferont et restons bien &eacute;videmment &agrave; votre enti&egrave;re disposition.
  23. <br>
  24. <br>
  25. Vous remerciant de votre confiance,
  26. <br>
  27. <br>
  28. Cordialement,
  29. <br> <br>
  30. Votre service client.
  31.    <body>
  32.    </body>
  33. </html>


Message édité par hazzelthorn le 16-03-2011 à 15:05:00
n°2064356
kivis
Posté le 17-03-2011 à 09:47:26  profilanswer
 

Merci pour le script !!

n°2064409
boomy29
PSN: tintine29
Posté le 17-03-2011 à 13:40:31  profilanswer
 

ouai c'est cool  
maintenant j’espère pouvoir le tester  
car ça m'intrigue pas mal


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Programmation E-Mail Automatique

 

Sujets relatifs
Probème d'accent dans le sujet de mail PHPmailer daemon, mail undelivered
Ajout de pièce jointe dans un mailcopier lignes excel et coller dans corps de mail outlook (VBA)
Ecriture automatiqueProgrammation sur automate
[Projet] Notifieur de mail USB adapté à Thunderbirdbon de commande a envoyer vers mon adresse mail
Insérer logo dans mailProgrammation en C, besoin d'aide
Plus de sujets relatifs à : Programmation E-Mail Automatique

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.161 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR