Fichier relance auto Excel

Le 30/10/2018 à 16:19

Bonjour à tous,

dans le cadre de mon travail en agence immobilière, on me demande de créer un fichier de relance automatique par mail assez complexe.

Nous avons un logiciel qui aspire l'ensemble des annonces immobilières de particuliers avec leurs mails.

3 fois par semaine, je dois exporter ces données dans un fichier excel avec la date de parution (jusque là, tout va bien).

Je précise que je ne créé pas un nouveau fichier à chaque fois, j'agrémente un fichier existant.

Ces clients doivent être contactés par mail avec un mail type la semaine 1 (semaine 1=date de parution).

Puis en semaine 3 (=date de parution + 2 semaines), un second mail doit être envoyé automatiquement.

Idem pour semaine 5 (=date de parution + 4 semaines) et semaine 7 (=date de parution + 6 semaines).

Je n'ai pas besoin de pouvoir "personnaliser" les mails. Chaque client recevra exactement les mêmes mails type (sans nom, sans date, sans rien).

Je vous joins une ébauche du fichier.

18relance-clients.xlsx (16.07 Ko)

Je vous remercie d'avance pour votre aide.

Julie

Le 30/10/2018 à 17:22

Bonjour,

quelle est la messagerie de l'agence ? outlook ? thunderbird ?

Le 30/10/2018 à 17:30

Bonjour,

l'agence passe par Zimbra pour l'envoi des mails

Le 30/10/2018 à 18:01

Bonjour,

J'ai une macro qui fonctionne sous Outlook.

Elle envoie un mail avec le texte contenu entre les balises.

Pas le temps de l'adapter, mais si quelqu'un veut y consacrer un peu de temps…

Sub Envoi_MailExcel()

' Macro créée par Soleusterm

' Macro fonctionnelle sous Microsoft Office 2013 créée pour votre usage

' Cette macro envoie un mail aux destinataires dans la liste selon votre choix

Dim olApp As thunderbird.Application

Dim olMail As MailItem

Dim StrBody As String

Dim Dest As String

' Module de sélection des adresses

Set Aselectionner = Application.InputBox _

(prompt:="selectionner la plage de cellule ", _

Title:=" Plage de cellules ? s?lectioner", Type:=8)

Aselectionner.Select 'Selection de la plage souhaitée

Application.ScreenUpdating = False

For Each Lescellules In Aselectionner

Dest = Lescellules.Value

'Création des mails

'Set olApp = CreateObject("Outlook.Application")

Set olMail = olApp.CreateItem(olMailItem)

' Contenu des mails

StrBody = "<HTML><Body><p><Span style='font-family:Tahoma;font-size:10pt'>Bonjour Mesdames et Messieurs.</p>" _

& "<p>Je vous remercie de votre attention</span></p>" _

& "<p>...</span></p>" _

& "<p>...</span></p>" _

& "<p><Span style='color:red;font-family:Tahoma;font-size:16pt'><b><i><center>TOTO.COM</center></i></b></span></p>" _

& "<p><center><img src='C:\meeting.gif'></center></p></Body><HTML>" _

& "<p>...</span></p>" _

& "<p>L'?quipe TOTO.com</span></p>"

With olMail

.To = Lescellules.Value

.BCC = ""

.Subject = "Offre de Collaboration"

.HTMLBody = StrBody

.Display

End With

Set olMail = Nothing

Set olApp = Nothing

Next

End Sub

Le 30/10/2018 à 18:04

Désolé, la version envoyée n'est pas bonne.

Celle ci est la bonne

Sub Envoi_MailExcel()

' Macro cr??e par Soleusterm

' Macro fonctionnelle sous Microsoft Office 2013 cr??e pour votre usage

' Cette macro envoie un mail aux destinataires dans la liste selon votre choix

Dim olApp As Outlook.Application

Dim olMail As MailItem

Dim StrBody As String

Dim Dest As String

' Module de s?lection des adresses

Set Aselectionner = Application.InputBox _

(prompt:="selectionner la plage de cellule ", _

Title:=" Plage de cellules ? s?lectioner", Type:=8)

Aselectionner.Select 'Selection de la plage souhait?

Application.ScreenUpdating = False

For Each Lescellules In Aselectionner

Dest = Lescellules.Value

'Cr?ation des mails

Set olApp = CreateObject("Outlook.Application")

Set olMail = olApp.CreateItem(olMailItem)

' Contenu des mails

StrBody = "<HTML><Body><p><Span style='font-family:Tahoma;font-size:10pt'>Bonjour Mesdames et Messieurs.</p>" _

& "<p>Je vous remercie de votre attention</span></p>" _

& "<p>...</span></p>" _

& "<p>...</span></p>" _

& "<p><Span style='color:red;font-family:Tahoma;font-size:16pt'><b><i><center>TOTO.COM</center></i></b></span></p>" _

& "<p><center><img src='C:\meeting.gif'></center></p></Body><HTML>" _

& "<p>...</span></p>" _

& "<p>L'?quipe TOTO.com</span></p>"

With olMail

.To = Lescellules.Value

.BCC = ""

.Subject = "Offre de Collaboration"

.HTMLBody = StrBody

.Display

End With

Set olMail = Nothing

Set olApp = Nothing

Next

End Sub

Le 30/10/2018 à 18:07

Bonjour Soleusterm,

Mets ton code entre balises </> pour le rnedre visible.

On en a plein des comme cela, mais non cela ne marchera pas avec Zimbra ! question de MAPI ...

En 2015, on en était encore là :

Pour pouvoir utiliser la fonction "Envoyer à..." avec un destinataire mail, il faut du MAPI qui fonctionne sur l'ordinateur.

zDesktop ne propose pas le service mais Outlook (ou Thunderbird de mémoire) le propose.

Le 30/10/2018 à 18:08
Luliecrazy a écrit :

Bonjour,

l'agence passe par Zimbra pour l'envoi des mails

Aie, c'est pas gagné !!

Tu peux peut-être trouver ton bonheur ici et quelques vidéos

https://zimbra.org/extend/items/view/zimbra-notifier

Le 31/10/2018 à 00:49

Re-

Il faudrait tester une macro comme celle-ci

' Il faut activer la référence Microsoft CDO

Sub SendEmailUsingGmail()

    On Error GoTo Err

    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigURL As String

    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")

    ' load all default configurations
    mailConfig.Load -1

    Set fields = mailConfig.fields

    With NewMail
        .Subject = "Test Mail"
        .From = "prenom.nom@gmail.com"
        .To = "prenom.nom@orange.fr" ' mettre ; entre chaque adresse mail
        .CC = ""
        .BCC = ""
        '.TextBody = "Test envoi"
        .HTMLBody = "Write your complete HTML Page"
        .AddAttachment "C:\Users\Michel\Downloads\test.xlsx"
    End With

    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

    With fields
        'Enable SSL Authentication
        .Item(msConfigURL & "/smtpusessl") = True

        'Make SMTP authentication Enabled=true (1)
        .Item(msConfigURL & "/smtpauthenticate") = 1

        'Set the SMTP server and port Details
        .Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
        .Item(msConfigURL & "/smtpserverport") = 465
        .Item(msConfigURL & "/sendusing") = 2

        'Set your credentials of your Gmail Account
        .Item(msConfigURL & "/sendusername") = "prenom.nom@gmail.com"
        .Item(msConfigURL & "/sendpassword") = "********"

        'Update the configuration fields
        .Update

    End With
    NewMail.Configuration = mailConfig
    NewMail.Send
    MsgBox ("OK, c'est parti !")

Exit_Err:

    Set NewMail = Nothing
    Set mailConfig = Nothing
    End

Err:
    MsgBox Err.Number
    Resume Exit_Err

End Sub

en indiquant le smtp (protocole envoi de mails) à la place de celui-ci "smtp.gmail.com"

et bien sûr paramétrer les autres critères ...

malheureusement je n'ai pas (encore) Zimbra pour tester.

Le 31/10/2018 à 09:47

Bonjour,

je vous remercie grandement pour vos réponses. Je vais tenter d'appliquer la macro et de l'adapter si nécessaire.

(Ca va mettre un peu de temps, je débute dans le domaine!!)

Merci encore!

Le 31/10/2018 à 10:01

Hello,

Pour info technique, les serveurs de messagerie limite le nombre d'envoi mails auto, une fois la limite franchie, ton adresse est limitée avec envoi impossible, pendant un temps, le temps que la statistique de moyenne d'envoi retombe sous la limite.

Un envoi par macro peut faire aussi classer le mail dans les courriers indésirables du destinataire, qui prend la procédure comme un spam, mais ça dépend aussi des messageries, sous Outlook pas eu souvenir que ça a été mis en spam par exemple, mais Numéricable oui.

La limite dépend des messageries (il y'en a plusieurs type, poids des mail, transfert, ...), ça va de qqe centaines par jour/mois. Si tu n'en fais que quelques dizaines par jour, la macro devrait plus ou moins marché.

Si tu dois flirter avec la limite de ta messagerie, il vaudra mieux faire acheter une solution professionnel.

Rechercher des sujets similaires à "fichier relance auto"