Email

[Neil Greenough]

I currently have the following VB code in a MS Access Database which I use
to send emails. Nonetheless, it opens Outlook and I would like it to send an
email using Outlook Express. Could anyone please oblige in ammending the
code for me, so that it uses Outlook Express 5?

Thanks

______________

Private Sub cmdSendEmail_Cl ick()
Dim objOutlook As Express.Applica tion
Dim objOutlookMsg As Outlook.MailIte m
Dim objOutlookRecip As Outlook.Recipie nt
Dim objOutlookAttac h As Outlook.Attachm ent

' Create the Outlook session.
Set objOutlook = CreateObject("O utlook.Applicat ion")

' Create the message.
Set objOutlookMsg = objOutlook.Crea teItem(olMailIt em)

With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add (Me.EMail)
objOutlookRecip .Type = olTo

.Display
End With
Set objOutlook = Nothing
End Sub

[M. Posseth]

well as far s i know it isn`t possible to send e-mails with outlook express
like this

the best you can get is using a mailto command in a shell ( this will open
the default mail proggy with a message )

i used the vbsendmail.dll from freevbcode.com to send e-mail messages from
my proggy`s it is free and comes with sourcecode

i retrieve the default SMTP server, and users e-mail adress from the
registry , feed this to the sendmail class and send my message

you can send even atachments , pictures , htmkl formated mail etc etc etc
http://www.freevbcode.com/ShowCode.Asp?ID=109
regards

M. Posseth [MCP]
"Neil Greenough" <ne***********@ btopenworld.com > wrote in message
news:ce******** *@hercules.btin ternet.com...

I currently have the following VB code in a MS Access Database which I use
to send emails. Nonetheless, it opens Outlook and I would like it to send an email using Outlook Express. Could anyone please oblige in ammending the
code for me, so that it uses Outlook Express 5?

Thanks

______________

Private Sub cmdSendEmail_Cl ick()
Dim objOutlook As Express.Applica tion
Dim objOutlookMsg As Outlook.MailIte m
Dim objOutlookRecip As Outlook.Recipie nt
Dim objOutlookAttac h As Outlook.Attachm ent

' Create the Outlook session.
Set objOutlook = CreateObject("O utlook.Applicat ion")

' Create the message.
Set objOutlookMsg = objOutlook.Crea teItem(olMailIt em)

With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add (Me.EMail)
objOutlookRecip .Type = olTo

.Display
End With
Set objOutlook = Nothing
End Sub

[preben nielsen]

"Neil Greenough" <ne***********@ btopenworld.com > skrev i en
meddelelse news:ce******** *@hercules.btin ternet.com...

I currently have the following VB code in a MS Access Database which I use to send emails. Nonetheless, it opens Outlook and I would like it to send an email using Outlook Express. Could anyone please oblige in ammending the code for me, so that it uses Outlook Express 5?

Outlook Express does not expose an interface so you cannot do it
that way !
--
/\ preben nielsen
\/\ pr**@post.tele. dk

[the Wiz]

"Neil Greenough" <ne***********@ btopenworld.com > wrote:

I currently have the following VB code in a MS Access Database which I use
to send emails. Nonetheless, it opens Outlook and I would like it to send an
email using Outlook Express. Could anyone please oblige in ammending the
code for me, so that it uses Outlook Express 5?

Thanks

Forget Outlook / Express and use an SMTP control to send mail directly. There's
a free control at www.ostrosoft.com

More about me: http://www.jecarter.com/
VB3/VB6/C/PowerBasic source code: http://www.jecarter.com/programs.html
Freeware for the Palm with NS Basic source code: http://nsb.jecarter.com
Drivers for Pablo graphics tablet and JamCam cameras: http://home.earthlink.net/~mwbt/
Email here: http://www.jecarter.com/contactme.htm