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
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