Astuces Excel
  1. Astuces Excel
  3. Programme permettant d'envoyer des messages de groupe avec un model spécifique
Intereting Posts
Excel ne reconnaît pas la date de mysql comme date Comment faire des lists de données marquées dans les feuilles de calcul Google ou Excel Filtrage du document de données mulit-sheet avec utilisation de filter avancé vba Excel Match () renvoie # erreur N / A Le lien Excel Index ne correspond pas Existe-t-il une fonction de coalesce dans Excel? Copiez un file .csv vers un file .txt XLRDError: logging BOF attendu '\ x03OPC' Macro Excel VBA: Importation de classurs, Copie de colonnes et mise en boucle à l'aide de classurs importés Utilisation d'un object COM 32 bits dans un environnement 64 bits Lire le text de .xls dans C # Excel Sum Range Match Lookup Obtenir un nombre record en -1 dans VBA Comment puis-je exporter un rapport SSRS pour excel avec des sauts de page excel (pas des feuilles de travail séparées)? Formulaire d'user dans Excel 2013 disparaît lors de la remise en marche d'un classur actif

Programme permettant d'envoyer des messages de groupe avec un model spécifique

Je souhaite écrire un programme (probablement VB) qui permet à l'user d'envoyer des courriels à tous sur la list (pré-stockés dans MS Excel ou txt) à la fois. Dans la première ligne du corps du contenu du courrier électronique, j'aimerais écrire quelque chose comme «Cher xxx» où xxx est le nom pertinent pour la personne à laquelle cet email sera envoyé. La raison pour laquelle je veux faire cela, c'est parce qu'il peut gagner du time s'il y a un grand nombre de récepteurs et je n'ai pas besoin de modifier "xxx" pour chacun d'eux et que le programme le fera automatiquement une fois le courrier électronique associé l'adresse est sélectionnée dans la list. J'ai essayé de le mettre en œuvre à l'intérieur d'Excel en utilisant un VBA embedded, mais je n'ai pas trouvé de méthode pour replace automatiquement "XXX", et Outlook ouvrirait plusieurs windows pour différents récepteurs. Des idées sur la façon de l'atteindre? J'ai l'printing d'avoir besoin d'une boucle pour passer la list, mais je n'ai aucune idée de la façon de le faire. Je vais bien écrire un nouveau programme au lieu de modifier Excel. THX.

Vous pouvez écrire quelque chose comme ça: 

Dim aOutlook As Object Dim aEmail As Object Dim rngeAddresses As Range, rngeCell As Range, strRecipients As Ssortingng Set aOutlook = CreateObject("Outlook.Application") For Each xx In Range("A1:A5") Set aEmail = aOutlook.CreateItem(0) aEmail.Subject = "Test" aEmail.HTMLBody = "Dear <b>" & xx.Value & "</b><p>I sent to you ..." & Range("B7").Value aEmail.To = xx.Offset(0, 1).Value aEmail.display 'Send Mail ' aEmail.Send Next

Si vous souhaitez utiliser un model, vous pouvez simplement comstackr au format HTML à l'intérieur de certaines cellules HIDDEN dans le XLS …
Ce sous-écriture écrit à 5 personnes (de A1: A5 le nom, de B1: B5 l'email) un text composé (Cher XXX) plus une pièce standard (Cell B7).