VBA macro to send Emails from Word: First line font

BigMac'ro · #5 02-26-2025, 08:13 AM

Thank you! I actually just found a solution, it appears it's quite similar to yours

:

Code:

doc.Content.Copy


With objMail
        .Display
        .To = strTo
        .CC = strCC
        .BCC = strBCC
        .Subject = strSubj
        .BodyFormat = olFormatHTML
        
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range(0, wdDoc.Characters.Count)
        If Not (wdDoc Is Nothing) Then
            wdDoc.Content.Paste
        End If
        
        For a = LBound(strIndivAttach) To UBound(strIndivAttach) ' several attachements
            If Dir(strIndivAttach(a)) <> "" Then
                .Attachments.Add (strIndivAttach(a))
            End If
        Next a
        '.Send 
    End With

I used .Content.Copy, you use .Range.Copy. I'll also try your way to see if I can add the default Outlook signature. I did not find a way to do that yet, except pasting the signature in the Word document beforehand (not very elegant).

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can send emails, cannot receive emails!	jpcummins	Outlook	0	09-02-2020 02:39 PM
Bigger font on first letter of first line leaves large gap on that line	CrossReach	Word	1	04-12-2016 09:23 AM
Send Emails from MailMerge in Word using Specified Email Address	Baldeagle	Mail Merge	6	07-25-2015 05:32 AM
macro to add brackets to each line and add single quotes to each word in the line	bracketandquotes	Word VBA	17	02-16-2015 03:51 PM
How to change line height for marked text (in Word 2007)? ... as default for font?	pstein	Word	1	01-14-2012 10:15 AM