Programmation E-Mail Automatique

Programmation E-Mail Automatique - VB/VBA/VBS - Programmation

Marsh Posté le 15-03-2011 à 12:13:33    

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.

Reply

Marsh Posté le 15-03-2011 à 12:13:33   

Reply

Marsh Posté le 15-03-2011 à 13:55:51    

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
Reply

Marsh Posté le 16-03-2011 à 11:11:04    

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
Reply

Marsh Posté le 16-03-2011 à 14:00:12    

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

Reply

Marsh Posté le 16-03-2011 à 14:32:46    

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
Reply

Marsh Posté le 17-03-2011 à 09:47:26    

Merci pour le script !!

Reply

Marsh Posté le 17-03-2011 à 13:40:31    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed