Mailing global: prendre adresses colonne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Provence Vintage

XLDnaute Occasionnel
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
 
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
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
4
Affichages
461
Réponses
2
Affichages
809
Retour