L'envoi de courriels au format html à partir de VBA programme de messagerie

J'ai écrit un programme de messagerie pour mon organisation, les poignées certains très spécialisés choses très bien, des choses que je pourrais utiliser Outlook ou Gmail pour. Maintenant, le gestionnaire souhaite envoyer à l'occasion un e-mail à notre petite base de clients, mais je veux le corps de l'email pour un look professionnel et de ne pas les envoyer en tant que pièce jointe. J'ai bricolé un document html qui est présente dans tous les navigateurs et qui a été validé. Mon problème est que je peux pas comprendre comment le point le corps du message dans le document html. Voici les principales code.

C'est là que tout est mis en place:

Do While mailRs.EOF = False
'Me.AttachDoc = "C:\EmailFolder\CouponForm.pdf"
  emTo = mailRs.Fields("EmailAddr").Value
  emFrom = "[email protected]"
  emSubject = Me.Subject
  emtextBody = Me.TextMessage

Ici est un appel pour l'envoi de l'email

Call SendAMessage(emFrom, mailRs.Fields("EmailAddr").Value, _
                   emSubject, emtextBody, emAttach)

(J'ai obtenu le code pour l'envoi de l'email sur le web et il fonctionne très bien par le biais de notre serveur de messagerie.)

Ci-dessus, avant l'appel @ emtextBody = Me.TextMessage est là que j'ai besoin de remplacer Me.TextMessage avec l'adresse et le corps du document html. Et la boîte de message est une zone de texte sur le formulaire d'ACCÈS. Je ne trouve pas de contrôle d'ACCÈS qui prend en html. Je ne peux pas utiliser le chemin d'accès au document html, parce que génère une erreur. Est-il un moyen de contourner ce

Si besoin de plus de renseignements, je serai heureux de les lui fournir.

Merci pour votre temps.

jpl

  • VBA peut être limité dans son soutien pour les nouveaux formats de messagerie. Dans VB.NET je pense qu'il y a deux bodyFormats - texte et HTML. Vous pouvez être mieux avec une .NET application. Vous devez fournir une option de texte en clair en tant que bien que certains utilisateurs de définir leurs préférences en texte brut et certaines sociétés limitent l'email.
InformationsquelleAutor jpl458 | 2015-04-02
  1. 8

    Utiliser quelque chose comme le code ci-dessous. J'ai inclus des éléments pour la fixation ainsi que la mise en forme html mais à peu près tout ce que vous pouvez écrire en html peut aussi être fait dans vba.

    Sub SharePerformance()

Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.createitem(0)
'& "<a href=""\\server\folder"">\\server\folder</a>" &
msg1 = "Team,<br><br><b><DL>" & Range("b5").Value & "</b><br><ul><b><u>" & Range("b6").Value & "</b></u>"
msg1 = msg1 & "<DT><a HREF=C:\USER\Desktop\File1.xlsb>"
msg1 = msg1 & Range("b7").Value & "</a><br>"
msg1 = msg1 & "<b><u>" & Range("b9").Value & "</b></u></DL><br><br>"


msg1 = msg1 & "<p><img src=file://" & "C:\temp\Chart1.png" & "></p>" & "<br>"

On Error Resume Next
' Change the mail address and subject in the macro before you run it.

With OutMail
    .To = Range("B1").Value
    .cc = ""
    .BCC = ""
    .Subject = Range("B3").Value
    .HTMLBody = msg1
    '.Attachments.Add ActiveWorkbook.FullName
    '.Attachments.Add ("C:\temp\Chart1.png")
    '.Attachments.Add ("C:\temp\Chart2.png")
    .display
End With
SendKeys "^{ENTER}"
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub
    • Mon code a été écrit pour ACCÉDER à 10, je suis en supposant que le code ci-dessus a été pour Excel. Suppose également que l'msg1 contient le code html. Mon code html doc a plus de 100 lignes. Pas à l'aide d'Outlook. Toujours en difficulté, mais grâce jbay.
    • Oui, c'était, mais j'ai été en mesure d'utiliser le même code d'accès après la sélection de la bibliothèque d'objets microsoft excel à partir de références et de changer les références de cellules de diriger quelque part d'autre. Le nombre des lignes ne compte pas.
    InformationsquelleAutor jbay
  2. 0

    Je ne peux pas dire ce code est à l'intérieur que SendAMessage fonction que vous utilisez, mais tous les VBA exemples que j'ai travaillé avec semblent fonctionner de la même façon avec les CDO.Objet du Message comme dans ce MS, article de Base de Connaissances KB286431. À un certain point SendAMessage va avoir une ligne qui attribue le message de l'objet .TextBody valeur égale à la emtextBody paramètre que vous transmettez.

    Une solution pourrait être la copie de vos SendAMessage fonction dans une nouvelle fonction SendAMessageHTML et remplacer la ligne où ils sont la mise en someMessage.TextBody = emtextBody de sorte que vous définissez someMessage.HTMLBody = emtextBody

    En supposant que votre zone de texte a texte le long de la lignes de "<html><head><body></body></html>" vous pourriez modifier votre fonction pour faire un naïf case comme ceci:

    if Left(UCase(emtextBody),6) = "<HTML>" then
  someMessage.HTMLBody = emtextBody
else
  someMessage.TextBody = emtextBody
end if
    • Je la suggestion ci-dessus:
    • Dans la suggestion ci-dessus comment dois-je m'adresser le document html si c'est un dossier.
    • Désolé pour les gros doigts. Vous avez rédigé Une solution pourrait être la copie de vos SendAMessage fonction dans une nouvelle fonction SendAMessageHTML et remplacer la ligne où ils sont la mise en someMessage.Corps texte = emtextBody de sorte que vous définissez someMessage.HTMLBody = emtextBody. Dire que le html doc est dans un dossier; HTMLBody = c:\htmlDocs\EmailDoc.html. Comment puis-je faire ce travail?
    • Vous pouvez trouver certains de code VBA pour lire que C:\htmlDocs\EmailDoc.html fichier dans une variable de Chaîne et ensuite configurer votre .HTMLBody = myStringVariable
    • Le problème est le document html contient des images graphiques. Pouvez-vous convertir à une variable chaîne de caractères d'un document html qui contient .les images jpg.? Aussi, si le html est convertie en une chaîne variable, comment pourrait-il être lu comme l'e-mail après l'avoir envoyé. Je suis en territoire inconnu ici, au moins pour moi. Merci pour votre temps.
    InformationsquelleAutor nvuono