Use VBA Code Mail via Outlook

B

Brian R Armstrong

Board Regular
Joined
Jun 5, 2007
Messages
92
Appreciate some help please - I use the code below to email from Excel to Outlook, which works fine.

I would like to add a Picture to the message and I added 2 lines (2) marked xxxx
I now get an error message

Some error occurred 438
Object doesn't support this property or method.

Can anybody spot my error or amend code if possible
Excel 2016, Windows 10

Many Thanks Brian A


Option Explicit
Sub Mail_with_outlook2() ' use this

Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strto = Cells(FormulaCell.Row, "j").Value 'email address
strcc = " "
strbcc = ""
strsub = "XXXXXX"
strbody = "Hello " & Cells(FormulaCell.Row, "B").Value & vbNewLine & vbNewLine & _
"Some txt ……………………..." & vbNewLine & vbNewLine & _
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody

xxxx 'Add file to the email
xxxx .Picture.Add ("C:\Users\Main User\Documents\ROLL-MEMBER.jpg - photos")

.Display ' or use .Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub
 
Sort by date Sort by votes

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
I am trying to set the FONT on email sent via this code

The font size element works and the Font face element sets the email (Outlook) font style but not the body text?

I have searched and tried many variations without success - is there a simple solution

Kind Regards Brian A

Code: 
Sub EmbedPicture()
    Const MyPath = "C:\Users\Main User\pictures\"
    Const MyPicture = "Voucher1.png"
    Dim strto As String, strcc As String, strbcc As String
    Dim strsub As String, strbody As String
    
    With CreateObject("Outlook.Application").CreateItem(0)
    strto = "Test1" 'email address
    strsub = "Test 2"
    .To = strto
    .Subject = strsub
        .htmlbody = "<html><b><font face=Blackadder ITC><font size=2><p>Bill and Ben</p>"
        
        .Display
        
    End With
End Sub
 
Upvote 0
Hope this is better]]BrianA
Sub EmbedPicture()
Const MyPath = "C:\Users\Main User\pictures"
Const MyPicture = "Voucher1.png"
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String

With CreateObject("Outlook.Application").CreateItem(0)
strto = "Test1" 'email address
strsub = "Test 2"
.To = strto
.Subject = strsub
.htmlbody = "<html><b><font face=Blackadder ITC><font size=2><p>Bill and Ben</p>"

.Display

End With
End Sub
 
Upvote 0
.
Code: 
Option Explicit


Sub EmbedPicture()
    'Const MyPath = "C:\Users\Main User\pictures\"
    'Const MyPicture = "Voucher1.png"
    Dim strto As String, strcc As String, strbcc As String
    Dim strsub As String, strbody As String
    
    strbody = "" & _
          "This is a test." & "

" & _
          "Bill and Ben" & _
          ""


    
    With CreateObject("Outlook.Application").CreateItem(0)
    strto = "Test1" 'email address
    strsub = "Test 2"
    .To = "Test@yahoo.com"
    .Subject = "HTML"
    .htmlbody = strbody
    .Display
    End With


End Sub

Do a search for " vba macro html adjust font "
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

C
  • Solved
Adding an editable pop-up
Replies
3
Views
300
ChaosPup
C
C
  • Solved
Adding a Log from user entered comments
Replies
3
Views
246
Tupe77
T
C
  • Question
Incorporating a UserForm in place of multiple InputBoxes
Replies
2
Views
169
Fluff
Fluff
The Ruff Report
  • Question
Add multiple attachments from email list
Replies
1
Views
309
Trebor76
T
The Ruff Report
  • Question
Help adjusting Macro to email multiple cc addresses
Replies
1
Views
415
The Ruff Report
The Ruff Report

Forum statistics

Threads
1,215,543
Messages
6,125,429
Members
449,223
Latest member
Narrian

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top