Sending e-mail with Excel

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a program which sends e-mail to a group of people. Program works fine
but I would like to get rid of the confirmation which Outlook asks every time
e-mail is sent (A program is trying to automatically send e-mail on your
behalf...).

Here is the code itself.

Sub Create_mail(Mail_address As String)
Dim AppMail As Object
Set AppMail = CreateObject("OutLook.Application")
With AppMail.CreateItem(0)
.To = Mail_address
.Subject = "Subject"
.Body = "Bodytext."
.Send
End With
Set AppMail = Nothing
End Sub
 
Back
Top