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

Salut le gars,

Alors chez moi c caremment l'inverse, ça mouline et ensuite ça me bug excel??????😡

Comprends pas bien
a vous

 

[Guiv]

Re : Mailing global: prendre adresses colonne

Re,
Ça bugue sur quelle ligne de la macro?

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Re, impossible de savoir, lorsque je lance la macro, excel se plante tout cours!
Désolé, mais comme celà je ne parviens pas à tester ton code
merci tout de même

Bonne journée et bon we si pas sur le fil

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

hello le fil,

quelqu'un a t'il une idée avec outlook,
chez moi toujours pas trouvé....

Merci et bonne journée

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Salut le fil,

un petit up!?
il n'y a pas un pro qui passerait par là!!!!
merci
bonne journée

 

[YANN-56]

Re : Mailing global: prendre adresses colonne

Bonjour Vintage, et à ceux qui passeront par là.
Désolé. Ce n'est pas un "Pro"; ce n'est que moi! 🙂

Alors chez moi c caremment l'inverse, ça mouline et ensuite ça me bug excel??????😡

Je suis un peu surpris! (D'autant que cela fonctionne chez Guiv et ailleurs)

Je vais reprendre mon Classeur en faisant en sorte
d'éliminer les erreurs éventuelles d'adaptation des codes,
ou d'écriture des Adresses.

Pour info; je n'ai eu de plantage de ce genre,
que lorsque j'avais oublié de préalablement me connecter à Internet.

Je vais ajouter une fonction de vérification récemment apprise.

A plus tard.

Yann

 

[Provence Vintage]

Re : Mailing global: prendre adresses colonne

Bonjour yann,

merci à toi

a+

 

[YANN-56]

Re : Mailing global: prendre adresses colonne

Bonsoir Provence Vintage, et à ceux qui passeront par là.

Voici un Test que tu pourras essayer.

En premier lieu écrire ton adresse Mail dans la ligne "Titre" des propriétés du Classeur

A l'ouverture de l'USF, les adresses fictives de Pierre,
Paul et Jacques seront mises dans la feuille "ADRESSES".

Dans le label1, il y aura l'information sur l'état de ta connexion Internet.

Les Items de la ListView sont forfaitairement cochés pour éviter une tentative sans destinataires (Il est possible de les décocher en ne gardant qu'un ou deux)

Pour tester, je te conseille de joindre un fichier de peu de poids.

Tu regarde, et tu m'dis.

A quand tu le voudras.

Bonne soirée.

Yann