CDO Error

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I'm trying to configure MS Access to send e-mails using CDO. When I try to
use the .Send method, I'm getting an error that says "The pickup directory
path was not specified."

Below is the relevant code....

Set objMsg = New CDO.Message

objMsg.Subject = strSubject & " - TEST (PLEASE IGNORE)"
objMsg.TextBody = strMessage
objMsg.From = "(e-mail address removed)"
objMsg.To = objAdmin(1).Value

' Set configuration.
Set objConfig = New CDO.Configuration
Set objFields = objConfig.Fields

Set objField =
objFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
objField.Value = 1 ' Sets the configuration to use the local
SMTP server
objFields.Refresh

objMsg.Configuration = objConfig

objMsg.Send << ERROR
 
Back
Top