Run time error

[dwarek]

hello i have developed code but it shows a run time error can some one please advise whats is the issue
Private Sub CommandButton1_Click()
Range("A2").Select
While Not ActiveCell = ""
Mail_To = ActiveCell.Offset(0, 0)
Mail_Subject = "testing"
Mail_Voting = ActiveCell.Offset(0, 4)
Set myolapp = CreateObject("Outlook.Application")
Set myitem = myolapp.CreateItem(olMailItem) ---> error in this line "Method 'Subject' of object'_Mailitem' failed
With myitem


.VotingOptions = Mail_Voting
.To = Mail_To

.Subject = ActiveCell.Offset(0, 1)
.Body = ActiveCell.Offset(0, 2)
.display
End With

ActiveCell.Offset(1, 0).Select
Wend
End Sub

 

[Ruddles]

This (probably) won't help you narrow down the problem, but your code works perfectly on my machine.

You have MS Outlook installed, yes?

 

[dwarek]

yea i do have it but i don't know whats the problem

 

[mole999]

when you are testing, has outlook been started

 

[dwarek]

no out look was not opened

 

[clares]

Hi Mole999

I don't know if this will help you but this is what I use and it works using Excel and Outllok 2016

Dim OutApp As Object
Dim OutMail As Object

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

With OutMail
.To = "xx@xx.xx.xx"
.CC = ""
.BCC = ""
.Subject = "subject line"
.Body = "Text in the body of the email."
.Attachments.Add ("C:\location of attachment.xlsx")
.Send
End With