Publipostage Excel Word Outlook OVH

Elevenul · 23 Mai 2020

Bonjour au Forum
J'envoi 280 emails les adresses dans Fichier Excel avec Civilité, Prénom, Nom, Adresse mail.

Dans Word Texte en HTML.
Terminer & fusionner
Envoyer courrier

Outlook pour envoyer

Macro dans Word
Sub Macro2()

With ActiveDocument.MailMerge
.Destination = wdSendToEmail
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub

Est-il possible de mettre une tempo entre chaque envoi pour ne pas être déclaré SPAM par OVH ?

Merci de votre regard.

Elevenul · 3 Juin 2020

Bonjour Le Forum,

Pas très joli mais cela fonctionne.
deux modules dans Word

tempo

Code:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub test()
   Sleep (30000)   'Implements a 30 second delay
End Sub

publipostage

VB:

Sub Macro1()
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource


ActiveDocument.MailMerge.OpenDataSource Name:="C:\PUBLIPOSTAGE\essai.xlsx" '<----- ou est le fichier excel servant de base

' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource

iR = oDoc.MailMerge.DataSource.RecordCount '<---- nombre de ligne de la feuille excel base

For i = 1 To iR Step 2  '<----- envoi deux par deux fichiers publipostés

    With ActiveDocument.MailMerge
        .Destination = wdSendToEmail
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = i
            .LastRecord = i + 1
        End With
        .Execute Pause:=False
    End With
    Call test   '<---- pause entre 2 envois
Next i
    MsgBox "fini"
   
End Sub

Pour ceux que cela peut intéresser.

A bientôt sur le forum.

Publipostage Excel Word Outlook OVH

Elevenul

XLDnaute Nouveau

Elevenul

XLDnaute Nouveau

Discussions similaires