Send an email directly through Exchange

[Paul H]

If there is no email client on the XP workstation that my DB is on, is it
possible for Access to talk directly with Exchange Server to send an email?

I am sure you might think, what's the problem with simply installing
Outlook. Well I guess I am looking for the "elegant" solution :O)

Thanks

Paul

[Daveo]

Hi Paul,

The following KB article might help:

http://support.microsoft.com/?kbid=153311

Cheers - David
Paul H wrote:

If there is no email client on the XP workstation that my DB is on, is it
possible for Access to talk directly with Exchange Server to send an email?

I am sure you might think, what's the problem with simply installing
Outlook. Well I guess I am looking for the "elegant" solution :O)

Thanks

Paul

[BillCo]

Paul H wrote:

Well I guess I am looking for the "elegant" solution :O)

hour of pain working this one out! just substitute the [] fields and
include the Miscrosoft CDO library - no outlook profiles required:

Sub SendHTMLMail(st rTo As String, strSubject As String, strBody As
String)
'============== =============== =============== ========
'Bill Coleman
'20th April 06
'Sends email HTML email directly via exchange server, w/o outlook
'============== =============== =============== ========

Dim iCfg As CDO.Configurati on
Dim iMsg As CDO.Message

Set iCfg = New CDO.Configurati on

With iCfg
.Fields(cdoSMTP Server) = "[EXCHANGE SERVER NAME]"
.Fields(cdoSMTP ServerPort) = 25 ' typically
.Fields(cdoSend UsingMethod) = cdoSendUsingPor t
.Fields(cdoSMTP ConnectionTimeo ut) = 200
.Fields.Update
End With

Set iMsg = New CDO.Message
With iMsg
Set .Configuration = iCfg
.From = "[Name Of Sender]"
.Sender = "[[e-mail]]"
.ReplyTo = "[[e-mail]]"
.Subject = strSubject
.HTMLBody = strBody
.To = strTo
.Send
End With

Set iMsg = Nothing
Set iCfg = Nothing

End Sub

[BillCo]

this article explains how it works rather well:
http://www.imibo.com/delphi/mapiorcdo.html

You can use the MAPI directly if you are feeling brave, but it's far
more complicated then needs be when you have the CDO wrapper - also
most reference examples using MAPI require that there be an outlook
profile on the PC, bringing you back to square one, needing outlook.
But the code I gave (a twist on somthing from Lyle, I think) talks
directly with no profile. That way outlook isnt envoked and you dont
have to suffer those security warnings (outlook 2003+).

[Paul H]

"BillCo" <co**********@g mail.comwrote in message
news:11******** *************@a 14g2000cwb.goog legroups.com...

>
Paul H wrote:

>Well I guess I am looking for the "elegant" solution :O)

hour of pain working this one out! just substitute the [] fields and
include the Miscrosoft CDO library - no outlook profiles required:

Sub SendHTMLMail(st rTo As String, strSubject As String, strBody As
String)
'============== =============== =============== ========
'Bill Coleman
'20th April 06
'Sends email HTML email directly via exchange server, w/o outlook
'============== =============== =============== ========

Dim iCfg As CDO.Configurati on
Dim iMsg As CDO.Message

Set iCfg = New CDO.Configurati on

With iCfg
.Fields(cdoSMTP Server) = "[EXCHANGE SERVER NAME]"
.Fields(cdoSMTP ServerPort) = 25 ' typically
.Fields(cdoSend UsingMethod) = cdoSendUsingPor t
.Fields(cdoSMTP ConnectionTimeo ut) = 200
.Fields.Update
End With

Set iMsg = New CDO.Message
With iMsg
Set .Configuration = iCfg
.From = "[Name Of Sender]"
.Sender = "[[e-mail]]"
.ReplyTo = "[[e-mail]]"
.Subject = strSubject
.HTMLBody = strBody
.To = strTo
.Send
End With

Set iMsg = Nothing
Set iCfg = Nothing

End Sub

Many thanks for that..I feel your pain ;o)

How can check for the existence of the Exchange server? This is so that the
database can "choose" to use exchange instead of Outlook if the PC is
connected to an Exchange server.

My development PC does not connect to an Exchange server.

Thanks,

Paul

[Terry Kreft]

What is interesting is that with suitable amendment this works with script
as well.
--

Terry Kreft
"Paul H" <no****@nospam. comwrote in message
news:Is******** *************** *******@eclipse .net.uk...

>
"BillCo" <co**********@g mail.comwrote in message
news:11******** *************@a 14g2000cwb.goog legroups.com...

Paul H wrote:

Well I guess I am looking for the "elegant" solution :O)

hour of pain working this one out! just substitute the [] fields and
include the Miscrosoft CDO library - no outlook profiles required:

Sub SendHTMLMail(st rTo As String, strSubject As String, strBody As
String)
'============== =============== =============== ========
'Bill Coleman
'20th April 06
'Sends email HTML email directly via exchange server, w/o outlook
'============== =============== =============== ========

Dim iCfg As CDO.Configurati on
Dim iMsg As CDO.Message

Set iCfg = New CDO.Configurati on

With iCfg
.Fields(cdoSMTP Server) = "[EXCHANGE SERVER NAME]"
.Fields(cdoSMTP ServerPort) = 25 ' typically
.Fields(cdoSend UsingMethod) = cdoSendUsingPor t
.Fields(cdoSMTP ConnectionTimeo ut) = 200
.Fields.Update
End With

Set iMsg = New CDO.Message
With iMsg
Set .Configuration = iCfg
.From = "[Name Of Sender]"
.Sender = "[[e-mail]]"
.ReplyTo = "[[e-mail]]"
.Subject = strSubject
.HTMLBody = strBody
.To = strTo
.Send
End With

Set iMsg = Nothing
Set iCfg = Nothing

End Sub

Many thanks for that..I feel your pain ;o)

How can check for the existence of the Exchange server? This is so that

the

database can "choose" to use exchange instead of Outlook if the PC is
connected to an Exchange server.

My development PC does not connect to an Exchange server.

Thanks,

Paul

[Paul H]

Just a quickie to say thanks Bill, it worked perfectly and no Terry, I am
not a script kiddie!

Paul

[Terry Kreft]

I didn't imply that you were.

Having said that and with all due distaste for scrip kiddies out of the way,
there are occasions where scripting is the best tool for the job.

There was an occasion just last year where this code would have been useful
to a colleague of mine who needed to be able to e-mail alerts from a
script, also there is a customer of mine who changed server, didn't install
SMTP on the new server and then wondered why e-mail alerts from a DTS
package stopped working. I suspect that a VBScript component added to the
package with the code posted in this script could well have sorted their
problem for them.

--

Terry Kreft
"Paul H" <no****@nospam. comwrote in message
news:ba******** ************@ec lipse.net.uk...

Just a quickie to say thanks Bill, it worked perfectly and no Terry, I am
not a script kiddie!

Paul

[Paul H]

>I didn't imply that you were.

My apologies, I misunderstood you and got paranoid about being deemed
"unclean" by the group ;o)

My mistake,

Regards,

Paul

[Terry Kreft]

It's all too easy to misunderstand posts.

I reckon that lack of body language has been the cause of more heated
discussions than most anything else in NGs.
--

Terry Kreft
"Paul H" <no****@nospam. comwrote in message
news:zd******** ************@ec lipse.net.uk...

>

I didn't imply that you were.

My apologies, I misunderstood you and got paranoid about being deemed
"unclean" by the group ;o)

My mistake,

Regards,

Paul