Macro to open a new email via Outlook

B

BartGoem

New Member
Joined
Jan 31, 2024
Messages
2
Office Version
  1. 365
Platform
  1. Windows
I am trying to create a macro to send a new email via outlook.

The problem is I have multiple accounts in my outlook and I one to select one of the accounts to send the email.

Any idea how I can solve this?

Txs!

This is my VBA code so far:

Dim olApp As Outlook.Application
Dim olEmail As Outlook.MailItem
Set olApp = New Outlook.Application
Set olEmail = olApp.CreateItem(olMailItem)


With olEmail
.BodyFormat = olFormatHTML
.Display

.CC = ""
.Subject = "New email"

End With
 

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney
Sort by date Sort by votes
Hi,

Thanks for your reply.

I managed to solve it by making the code like this:

Private Sub Knop397_Click()


Dim olApp As outlook.Application
Dim olEmail As outlook.MailItem
Set olApp = New outlook.Application

Dim oAccount As outlook.Account

For Each oAccount In outlook.Session.Accounts
If oAccount = "info@xxxxxxx.com" Then ' account name i
Set olEmail = outlook.CreateItem(olMailItem)
olEmail.SendUsingAccount = oAccount
Exit For
End If
Next

With olEmail
.BodyFormat = olFormatHTML
.Display

'.To = "enter email addresses here"
.CC = ""
.Subject = "xxxxxxx!"

End With
End Sub

I need the email to "insert as text" a html file. Anybody know how to do this?

Txs!

Bart
 
Upvote 0
try this

VBA Code: 
Private Sub SendEmail(fromAddess As String, toAddess As String, subject As String, body As String)
    Dim app As Object
    Dim item As Object

    On Error GoTo eh

    Set app = CreateObject("Outlook.Application")
    Set item = app.CreateItem(0)

    With item
        .To = toAddess
        .subject = subject
        .HTMLBody = "<html><body>" & body & "</body></html>"
        .Send
    End With

    GoTo out

eh:
    MsgBox "An error occurred: " & Err.Description

out:
    Set app = Nothing
    Set item = Nothing
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

L
  • Question
VBA query - not opening outlook email but one drive
Replies
0
Views
173
Liverlee
L
T
  • Question
Excel VBA - Send email in Outlook using 2nd account
Replies
6
Views
439
6StringJazzer
6StringJazzer
J
  • Solved
Automatically sending email from a shared mailbox via an Excel macro
Replies
1
Views
766
Jeff Leubecker
J
Y
  • Solved
How do stop VBA pasting content under default signature in Outlook
Replies
3
Views
915
Micron
M
F
  • Solved
How to add text to e-mail body when checkbox is ticked on userform
Replies
2
Views
345
flea80
F

Forum statistics

Threads
1,215,069
Messages
6,122,959
Members
449,096
Latest member
Anshu121

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