Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Publipostage Excel Word Outlook OVH

Elevenul

XLDnaute Nouveau
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.
 
Dernière édition:

Elevenul

XLDnaute Nouveau
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…