email through SMTP server

[Ian]

Could have sworn I've read this before, but cant seem to find it now. I am
trying to send an email from a machine that will not have outlook. all I'm
doing is sending a 1 line text email and have an SMPT server to do it through.

Anyone remember how to do this without the docmd.sendobject?

Thanks,
Ian

 

[Alex Dybenko]

Hi,
search for SMTP here:
http://www.freevbcode.com/
there are several solutions, which depends on your environment

also look here:
http://www.granite.ab.ca/access/email.htm

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[AlexM]

On Error GoTo SendError

Dim rs As DAO.Recordset
Set rs = CurrentDb().OpenRecordset(INSERT YOUR CODE)

Dim objMessage As Object
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = strSubject & " " & Date
objMessage.From = rs.Fields("EmailAddress")
objMessage.To = strRecipient
objMessage.TextBody = strBody

If Len(strAttachment) >= 1 Then
objMessage.AddAttachment strAttachment
End If

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") =
rs.Fields("Username")

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
rs.Fields("Password")

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
rs.Fields("Server")
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send

Set objMessage = Nothing
rs.Close
Set rs = Nothing

Exit Function