![]() ![]() I went back and tried to just add what I THOUGHT was the relevant bits of code needed to change the body fonts. I already attempted to follow this guide before posting, but I could not get it to work. Still hoping for some changes there.Ģnd Edit: h4xpace suggested taking a look at this article for some guidance. This made the body of the text change formatting but it did not change the "Dear so-and-so" part of the email. 18pts? 18px? 18inches? So I changed the code to the following. SentOnBehalfOfName = """My Company Email Name"" "įor Each FileCell In rng.SpecialCells(xlCellTypeConstants)Įdit: Roland Shaw noticed that the font size did not have any clarifications as to what 18 was. Strbody = "This is the message text for each message. ![]() Set OutApp = CreateObject("Outlook.Application")įor Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants) I want it to all be the same font, size, color, etc. My signature inputs as whatever I set it to in the signature setup. The "Dear So-and-so" inputs as Times New Roman Size 12. There are style tags in my code but they do not have much of an effect. I tried changing Outlook's template settings and taking the code out in hopes that it would input with the "Outlook default" font. I tried numerous different "tags" in an attempt to change the font formatting. I pasted together a lot of code to get where I am and don't know how I managed to get it to work at all. Most of the code (if not all of it, actually) is from this wonderful Ron de Bruin site. It inputs the name of each individual contact into the email body (Dear So-and-so), the company name/invoice number into the subject line (Company ABC Invoice 123), attaches a different file for each contact (Invoice 123.pdf), marks the message as high importance, requests a read receipt, sends on behalf of a secondary email account I use for invoices rather than my personal email account, BCCs to the secondary email, and adds an email signature at the bottom with a picture. I have VBA code that uses Excel to send a number of emails through Outlook. ![]()
0 Comments
Leave a Reply. |