Can Access autosend email through SMTP (w/o download) or through squirrelmail?

[oyvey99]

Hey everybody,
I'm developing a database in Access 2002 for my school's journal to track incoming articles as they make their way through publication. Only 1 editor is reading an article at a time, but many have access to the database and may update information about the article (expedite requests, etc.)

What I want is that if editor 1 enters his name as "reader," then editor 2 updates the information about the article, an email is automatically sent to editor 1.

Here's the catch- b/c I don't have administrator privileges on our network, I can't download any programs to run as part of this process. This means no outlook, no firefox, and primarily, no SMTP add ons. So, is there any way that I can either (1- preferred) send the emails through SMTP without downloading any auxiliary programs, or (2- not ideal but possible) have access open internet explorer, go to webmail, log in (to the journal's email), send the mail, and close IE? I would probably want it to be run on moving to the next record or (esp. for #2) on close of Access. If it makes it any easier, the database would always be run from the school's server, and all email addresses would be ones on the school's network ([e-mail]).

I'm a relative programming novice, so any help is greatly appreciated. Thank you!
-Adam

[nico5038]

I guess that the system manager closed the email for preventing spamm bots to work. This will however effect your application too.

The IE route could be an alternative. Just place the browser control and explore the possibilities for the HTMLdocument to achieve your goal.

Nic;o)

[Denburt]

Have you tried

Docmd.SendObject acSendReport,"Your Report"

?
If that won't work you can try heading up and use CDO.

The problem is locating the exchange server, once you do that your in. There are a lot of commands some of which are commented out since they weren't needed for my purpose. I use this to export a report to html then use that as a html body for my e-mails. Works quite nicely once you find the server and get it up and running good luck let me know if I can help.
Oh and you will need to set a reference to CDO in the VBA window go to tools references and look for Microsoft CDO for exchange.

Public Function CPExp()
Dim strTo As String, strFrom As String
Dim stSub As String ' Subject
Dim stMsg As String ' Body of Message
Dim stRpt As String ' Name of Report
Dim strCC As String
Dim strBcc As String
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds
Dim FSO, ts, tsR, i As Integer, Cnt(3)
stRpt = "My Report"
strTo = "[e-mail]"
strCC = "[e-mail]"
strBcc = "[e-mail]"
strFrom = "[e-mail]"
stSub = "...My subject..."
stMsg = "The attached file is the latest Example Report."
DoCmd.OutputTo acOutputReport, "YourReport", acFormatHTML, Application.CurrentProject.Path & "\RD.HTML", False
 
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set ts = FSO.OpenTextFile(Application.CurrentProject.Path & "\RD.HTML", ForReading, True) '.CreateTextFile(vFile)
 tsR = ts.ReadAll
 
Application.CurrentProject.Path & "\RD.HTML", False
Const cdoSendUsingPort = 2
Const strSmartHost = "YourExchangeServer" 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
' Set the configuration fields.
Set Flds = iConf.Fields
 
' Set the proxy server to be used.
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
 
' TODO: Set "someproxy:80" to the name of your proxy server.
'Flds("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = "?Exchangeserver"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
 
' Set if this is a local server.
'Flds("http://schemas.microsoft.com/cdo/configuration/urlproxybypass") = "<local>"
 
' Set the option to retrieve the latest content directly from the server.
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
 
' Set the message properties.
With iMsg
Set .Configuration = iConf
' Create the MIME representation of the Web page in the message.
'.CreateMHTMLBody = "http//whatever.com"
.HTMLBody = tsR '"<html><body><p>Hello </p></body></html>"
'.CreateMHTMLBody Application.CurrentProject.Path & "\RD.HTML"
.To = strTo
.CC = strCC
.BCC = strBcc
.From = strFrom
.Subject = stSub
.Send
 
Set .Configuration = Nothing
Set Flds = Nothing
Set iConf = Nothing
Set iMsg = Nothing
 
End With
 
End Function