Email's via sendkeys?

bennett4455

New member
Joined
Mar 19, 2010
Messages
2
Programming Experience
1-3
Do I have to have a 3rd party addin to send email via windows form as I cant stand outlooks security window or is there a way to use sendkeys?? I dont wanna buy 3rd party addins but at the moment it looks like i wont have a choice my attempt at sending email (BELOW) may I add I cant figure out sendkeys and help apreciated.
and also It has to run through outlook 2003
I have been looking about for days and this is my last point of call

Public Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim instance As SendKeys
Dim obbjol As Object, obbjmail As Object


obbjol = CreateObject("Outlook.Application")
obbjmail = obbjol.CreateItem(0)


With obbjmail
.Subject = "Text"
.To = "aa@.com"
.Body = "Text" & vbCrLf & vbCrLf & _
"Thank you"
.Display()

End With
' email is now visable
instance.sendkeys.send("%S")


Exit Sub
 
Back
Top