Sending Email from Access

[swoozie]

I have an access 2000 Database, I am running Windows XP pro and MS office 2003 Pro. With in my Database I want to be able to send emails off of the server and not using the local email client. I have tried several pieces of code and have searched high and low for something that works. HEre is what I have now:

1st try:

Public Sub xSendEmail(ByVal sSubject As String, ByVal sRecipient As String, ByVal sSender As String, ByVal sBody As String)
 
'MailMessage
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = sSubject
objMessage.Sender = sSender
objMessage.To = sRecipient
objMessage.TextBody = sBody
 
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server name"
 
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
objMessage.Configuration.Fields.Update
 
'==End remote SMTP server configuration section==
 
objMessage.Send
 
 
Set objMessage = Nothing
 
End Sub

2nd try

Sub SendEmail(ByVal sSubject As String, ByVal sRecipient As String, ByVal sSender As String, ByVal sBody As String)
SMTP_CONNECTION_TIMEOUT = 30
SMTP_SERVER_PORT = 25     ' Set the port to communicate on
SMTP_SERVER_NAME = "server name"
CDO_USER_NAME = ""     'This can be an empty string
CDO_USER_PASSWORD = ""     'This can be an empty string
 
   
    Set objConfig = New CDO.Configuration
 
    ' Set the configuration fields for this message.
    With objConfig.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = SMTP_SERVER_NAME
        .Item(cdoSMTPConnectionTimeout) = SMTP_CONNECTION_TIMEOUT
        .Item(cdoSMTPServerPort) = SMTP_SERVER_PORT
        .Item(cdoSendUserName) = CDO_USER_NAME
        .Item(cdoSendPassword) = CDO_USER_PASSWORD
        .Update
    End With
 
    ' Create the new message object.
    Set objMessage = New CDO.Message
 
    ' Set the message properties and send the message.
    With objMessage
        Set .Configuration = objConfig
        .MimeFormatted = True
        .To = sRecipient
        .CC = "" 'Add CC recipients as applicable.
        .BCC = "" 'Add BCC recipients as applicable.
        .From = sSender  'This needs to be a valid user on SMTP_SERVER_NAME.
        .Subject = sSubject
    '    If Dir(strAttachment) <> "" Then
    '            .AddAttachment strAttachment
    '    End If
        '.TextBody = strMessage 'Use this if you want to send email as plain text.
        .HTMLBody = sBody
        .Fields.Update
        .Send
    End With
 
    Set objMessage = Nothing
    Set objConfig = Nothing
 
End Sub

It appears that I am able to send from my machine but when I go to someone elses machine it no longer works.