Mailing global: prendre adresses colonne

[Provence Vintage]

Bonjour le forum

Je souhaite avec des données mail en colonne H,
envoyer un mailing global,
qui a une idée pour renseigner .To


#Public Sub Mailingglobalacheteurs()
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Dim sigstring As String
Dim signature As String
Dim Plg As Range
With Sheets("bdd acheteurs")
Set Plg = Range(Cells(4, 5), Cells(65536, 1).End(xlUp))
End With

sigstring = "C:\documents and settings\" & Environ("username") & "\application data\microsoft\signatures\signature.txt"


Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)
With OLMail
signature = sigstring

.To = Plg '<-- Ici je veux coller la liste des destinataires se trouvant en colonne A à partir de la cellule A2 en copie cachée
.Importance = olImportanceNormal
.Subject = "Proposition de Biens immobiliers" 'Objet
.Body = ""
.Categories = "Daily"
.OriginatorDeliveryReportRequested = True 'Accusé de dépôt

.Display '<-- Pour vérifier le mail avant l'envoi
End With
Set OLApplication = Nothing
Set OLMail = Nothing

End Sub#


Bonne Soirée
Merci

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Bonjour le forum,

un pt'tit up pour s'encourager!
merci
bonne journée

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Hello,

Ci joint, j'ai adapté un code trouvé sur le forum;
ça fonctionne mais en envoyant un mail séparé à chacun;
comment peux t'on modifier pour un seul mail!

#Public Sub Mailingglobalacheteurs()
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Dim sigstring As String
Dim signature As String
Dim cell As Range

Application.ScreenUpdating = False

sigstring = "C:\documents and settings\" & Environ("username") & "\application data\microsoft\signatures\signature.txt"

For Each cell In Sheets("bdd acheteurs").Range("H4:H65536").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" Then
cell.Value = cell.Value & ";" & ActiveCell.Offset(, 5).Value
Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)
On Error Resume Next
With OLMail
signature = sigstring

.To = cell.Value '<-- Ici je veux coller la liste des destinataires se trouvant en colonne A à partir de la cellule A2 en copie cachée
.Importance = olImportanceNormal
.Subject = "Proposition de Biens immobiliers" 'Objet
.Body = ""
.Categories = "Daily"
.OriginatorDeliveryReportRequested = True 'Accusé de dépôt

.Display '<-- Pour vérifier le mail avant l'envoi
End With
On Error GoTo 0
Set OLApplication = Nothing
Set OLMail = Nothing
End If
Next cell
Application.ScreenUpdating = True
End Sub#

Ci joint, lien forum:
https://www.excel-downloads.com/threads/envoi-mail-a-2000-destinataires.92902/
lien fichier test:
Cijoint.fr - Service gratuit de dépôt de fichiers

Bonne journée,
merci

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Hello le forum

y a t'il une ame charitable pour me filer un coup de "paluche"
merci
bonne journée

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Hello le Forum,

De mon côté toujours rien!

 

[Guiv]

Re : Mailing global: prendre adresses colonne

Bonjour,
Une proposition adaptée (ou plutôt carrément copiée!!) d'une macro de Ron DeBruin avec la méthode CDO.
Il y a quelques points à adapter à ton cas précis dans le module, mais j'ai testé, ça fonctionne.
Cordialement
Guiv

 

[YANN-56]

Re : Mailing global: prendre adresses colonne

Bonsoir à vous, et à ceux qui passeront par là.

Au bénéfice de ce que j'ai pu apprendre ici, je vous ai bidouillé un p'tit truc.

J'ai sans doute un petit souci quant à la temporisation du WebBrowser.
Attendez seulement une petite poignée de secondes de plus
que l'invitation à fermer L'USF... (J'ai eu des vides dans mes tests!!!)

Dans ma cambrousse, j'ai des déconnexions intempestives...
Peut-être n'est-ce que la raison.

Au plaisir de vous lire, si cela fonctionne chez vous.

P.S. Pour moi, Outlook est une grosse cochonnerie
qui met 3 plombes à télécharger vos mails.
Il est préférable de regarder du coté de la
méthode qui utilise votre fournisseur d'accès.
(CDO en est une ...)

 

[Guiv]

Re : Mailing global: prendre adresses colonne

Bonjour Yann56,
Je pense que ton fichier devrait convenir à Provence Vintage.
C'est vrai que CDO est particulièrement rapide (pour tester ton fichier, j'ai joint un fichier pris au hasard. Ce n'est qu'à la réception que j'ai vu qu'il pesait plus de 2 MO, et le mail était parti presque instantanément...). De plus ça ne dépend pas du logiciel de messagerie utilisé et ne génère pas d'alerte (style "un programme essaie d'envoyer un mail, voulez-vous continuer...")

En revanche, je n'avais pas encore regardé ton code pour l'AR. En fait, ça demande dans le corps du message au destinataire de bien vouloir te répondre qu'il a bien reçu le mail... Pas sur que ce soit aussi efficace qu'une demande d'AR générée par la messagerie à laquelle il est facile de répondre en cliquant simplement sur un bouton.
C'est un des défaut de CDO, il n'y a pas trace de ton envoi sur ta messagerie habituelle.

Cordialement,
Guiv

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Hello le Fil, Guiv, Yann

Aye,
Aucunes des deux méthodes ne fonctionnent sur ma bécanne!🙁

Version Excell: 2007 sur Vista
Y a t'il un complément à cocher?!

Merci
Bonne journée🙂

 

[Guiv]

Re : Mailing global: prendre adresses colonne

Re,
N'ayant ni Vista ni Office 2007, je ne peux pas tester. En revanche, pour ce qui est de mon fichier, Ron De Bruin affirme que ça fonctionne sous Vista comme sous XP et avec toutes les versions d'Office. (http://www.eggheadcafe.com/software/aspnet/32419983/sending-mail-cdo-from-exc.aspx)
Est-tu allé voir si tu n'as pas une référence "manquante" (dans l'éditeur VBE, Outils/Références)...
Cordialement,
Guiv

 

[YANN-56]

Re : Mailing global: prendre adresses colonne

Bonjour Guiv, Provence Vintage et à ceux qui passeront par là.

A Guiv:

Le corps de message demandant d'accuser réception est accessoire !
On peut changer le texte (Ce n'est qu'un résidu de mes premiers essais)

La demande de confirmation de réception est dans la macro.
Et cela fonctionne chez moi.

Et chez toi? (Si d'autres ont testé; ils peuvent aussi me dire si oui ou non)

A te lire, et bonne fin de journée.

Yann

P.S. A Provence Vintage;
Ci-joint: Image des références cochées

 

[Guiv]

Re : Mailing global: prendre adresses colonne

Re,
J'ai envoyé sur 2 messageries (Microsoft Outlook et Thunderbird) et je n'ai eu que la demande dans le corps du message:
"Merci d'accuser réception de ce message"

et jamais quelque chose comme

Cordialement,
Guiv

 

[YANN-56]

Re : Mailing global: prendre adresses colonne

Merci Guiv d'avoir testé.

Je vais rebidouiller mon essai.

J'utilise Wanadoo, et cela fonctionne.

A suivre, je reconstruis, et je reviens.

A plus

Yann

 

[YANN-56]

Re : Mailing global: prendre adresses colonne

J'ai peu modifier mon classeur!

Ci-joint ce dernier et le message de confirmation
que je vois à l'ouverture du Mail reçu.

Si cela ne fonctionne pas chez toi;
je pense que sans le passage d'un "Pro" dans ce fil,
je ne trouverai jamais pourquoi...😕

Par ailleurs je note que personne d'autre n'a testé,
avec réussite ou non; puisque 0 message🙁

Bonne fin de soirée à toi et à ceux silencieux qui passeront par là.

Yann

 

[Guiv]

Re : Mailing global: prendre adresses colonne

Re,
Ça marche!
A +
Guiv