Send an email via MS Outlook

[Pauljj]

I have some code in VB which allows the user to email a request. When I set this up originally everything worked fine but I have saved this in MS teams. The user now needs to open it up in the Desktop App.

When they do this I get an error at the point of the email code

My code is

Dim outlookapp As Outlook.Application
Dim outlookmail As Outlook.Mailitem

The error says

Compile error

User-defined type not defined

??

Any ideas ?

 

[KOKOSEK]

Set reference into Outlook library:

or use this:

Dim outlookapp As Object
Dim outlookmail As Object
Set outlookapp = CreateObject("Outlook.Application")
Set outlookmail = outlookapp.CreateItem(0)

 

[Pauljj]

Set reference into Outlook library:

View attachment 63243

or use this:

Dim outlookapp As Object
Dim outlookmail As Object
Set outlookapp = CreateObject("Outlook.Application")
Set outlookmail = outlookapp.CreateItem(0)

Thanks for this, the code change worked but for one part
It errors when it gets to this. when I commented it out, the code ran but didn't send the email

With outlookmail
     .Bodyformat = olFormatHTML

 

[KOKOSEK]

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
        .TO = "xyz@anc.com"
        .CC = "abc@xyz.com"
        .Subject = "Test"
        .HTMLBody = "<p>Hello world<br>Blah blah blah</p>"
        .Display
    End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing