Envoyer un e-mail à partir d'Excel 2007 VBA à l'aide d'un Modèle Outlook & Définir les Variables

J'ai une liste de données, disons que les informations du client (Nom, e-Mail, les montants Dus etc.), stockées dans une feuille de calcul Excel . Mon but est de cliquer sur un bouton dans Excel et envoyer à chaque client ses informations dans un Modèle Outlook.

  1. créer un objet de messagerie
  2. définir l'objet de messagerie pour le fichier de modèle
  3. paramètre, puis de remplir le modèle avec des données sur le client actuel - surtout coincé ici, vous ne savez pas comment spécifier des variables dans un modèle, puis les concernent en VBA
  4. enregistrer dans les brouillons pour l'examiner plus tard/envoyer

par exemple. Cher << clientname >> = Dear John Smith

Mon code donc loin:

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("C:\egTemplate.oft")

With MyItem
    .To = Worksheets("Clients").Range(1, 2)
    .Subject = "Monthly bill"
    'Refer to and fill in variable items in template
    .Save
End With

Set MyItem = Nothing
Set MyOlApp = Nothing

J'ai besoin de savoir si cela est encore possible, puis-je le faire sans plugins et si oui, quelqu'un connait un bon lien/tutoriel que je peux suivre?

Merci d'avance et salutations

Mise à jour Ajouté mon code et apporté quelques modifications à la demande

OriginalL'auteur Matt Rowles | 2011-12-12

  1. 10

    Ici est ce que vous pouvez faire :

    With MyItem
    'Refer to and fill in variable items in template
    .Body = Replace(.Body, "<< clientname >>", Worksheets("Clients").Range(1, 2))
End With

    ou, si votre courrier est en HTML:

    With MyItem
    'Refer to and fill in variable items in template
    .HTMLBody = Replace(.HTMLBody, "&lt;&lt; clientname &gt;&gt;",  Worksheets("Clients").Range(1, 2))
End With

    Testé avec succès sur Excel /Outlook 2007

    Merci s'accoupler cela a fonctionné parfaitement. Ne pensez même pas de la vieille Remplacer manœuvre 🙂
    toutes les idées sur la façon dont cela pourrait fonctionner pour excel/outlook 2010? Je reçois une erreur d'exécution 287 maintenant, je l'ai mis à niveau?
    cela devrait probablement de la même façon. Essayez de déboguer étape par étape Worksheetsles valeurs de cellules et .Body ou .HTMLBody. Ou poser une nouvelle question et un lien ici
    merci Jmax, nouvelle question téléchargé ici -stackoverflow.com/questions/27168199/...
    strScript = $" de la fenêtre.open('mailto:{strEmailAddress}?Objet={StrSubj + " &HTMLBody="}{b1}');" la mb1 ne semble pas être rendu correctement toutes les idées

    OriginalL'auteur JMax

  2. 2

    C'est un travail parfait pour le publipostage. Si vous voulez le faire par programmation, voir

    Fusion et publipostage dans Word+Excel à l'aide de VBA

    Ou vous pouvez simplement le faire manuellement (à partir de Word), insérer les champs de fusion, puis en sélectionnant votre classeur en tant que la source de données. Vous pouvez fusionner vers e-mail et Outlook pour envoyer des e-mails personnalisés à chaque e-mail du destinataire en utilisant l'information de chaque ligne/enregistrement.

    Merci s'accoupler, cette solution avait déjà été construit bien et était à la recherche pour un changement rapide. Je sais quelle est l'efficacité de Fusion et Publipostage est bien et d'apprécier la réponse.
    Je l'avais fait en désaccord. Fusion et publipostage de Word a quelques GRANDES questions, telles que: le Sujet du texte fixe - ne peut surmonter via Outlook visual basic de macro ou d'autres programattical option Peut uniquement envoyer un e-mail recipitent. Si vous souhaitez envoyer un e-mail À et CC, vous ne pouvez pas. Vous ne pouvez même combiner les deux e-mails dans l'adresse mail. Brian

    OriginalL'auteur JimmyPena