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 (first.last@school.edu).

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

Expand|Select|Wrap|Line Numbers

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.

Expand|Select|Wrap|Line Numbers

 
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 = "1@2.com"

strCC = "2@3.com"

strBcc = "3@4.com"

strFrom = "Me@4.com"

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

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

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

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

/bytes/development

/bytes/it

/bytes/about