Pacbell
Sun Dec 21 14:46:06 CST 2003
"Don Grover" <spamfree@assoft.com.au> wrote in message
news:epNzmgoxDHA.3436@tk2msftngp13.phx.gbl...
> Robert this is working for me ok !
>
> '******************************************************
> '*** Send the message Using CDOSYS Win2k & Win2003 ****
> '******************************************************
> ' CDO mail object
> myMailServer = sEmailServer
> sch = "
http://schemas.microsoft.com/cdo/configuration/"
> Set cdoConfig = CreateObject("CDO.Configuration")
> With cdoConfig
> .Fields.Item(sch & "sendusing") = 2
> .Fields.Item(sch & "smtpserverport") = iEmailPort
> .Fields.Item(sch & "smtpserver") = myMailServer
> '.Fields.Item(sch & "smtpauthenticate") = 1
> '.Fields.Item(sch & "sendpassword") = "mypassword"
> '.Fields.Item(sch & "sendusername") = "myusername"
> .Fields.Update
> End With
>
> Set cdoMessage = CreateObject("CDO.Message")
> Set cdoMessage.Configuration = cdoConfig
>
> With cdoMessage
> .From = sEmailAddFrom
> .To = sConAdHocAddress
> .BCC = sConEmailMonitor
> .Subject = MakeValid(sSubject)
> .TextBody = MakeValid(sBodyText)
> If Trim(sUploadFile) <> "" Then
> .AddAttachment "file://" & sTempPath & sUploadFile
> ClearFilespec sTempPath & sUploadFile
> End If
> .Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"
> .Fields.Item("urn:schemas:mailheader:X-Priority") = 2
> .Fields.Item("urn:schemas:mailheader:Sensitivity") =
> "Company-Confidential"
> .Fields.Item("urn:schemas:mailheader:Keywords") = "COKESHOP"
> .Fields.Item("urn:schemas:mailheader:X-Message-Flag") = "Do not
Forward"
> .Fields.Update
> .Send
> End With
> Set cdoMessage = Nothing
> Set cdoConfig = Nothing
>
>
>
>
> "Robert Elliott" <relliott@procard.com> wrote in message
> news:%23Jmt3$nxDHA.3436@tk2msftngp13.phx.gbl...
> > Hello,
> >
> > I am using the following code that I found on this message board to try
> and
> > send an email attachment. It is not working. Depending on what I
change
> I
> > keep getting one of three different errors. I get an error stating that
> the
> > specified protocol is unknown; I also get an error that the system
cannot
> > find the file specified when I know it is in the correct location; and I
> get
> > an error stating that the Object doesn't support this property or
method:
> > 'objMessage.AddAttachment'. Can anyone help with this? I was trying to
> run
> > this on my SMTP server directly.
> >
> > Thanks,
> > Robbie
> >
> > Set objEmail = CreateObject("CDO.Message")
> > objEmail.From = "someone@somedomain.com"
> > objEmail.To = "account@domain.com"
> > objEmail.Subject = "test message"
> > objEmail.AddAttachment "d:\attachment.txt"
> > objEmail.textbody = "Text of message goes here"
> > objEmail.Send
> >
Be sure to set sendusing to 1 when on the mail server itself. Here is
another way of doing it
'//Mail subroutine need to pass in varibles
sRecipients = "mike@foo.com"
sFrom = "bill@foo.com"
sSender = "joe@foo.com"
sSL = "Hellloo"
sBody = "Something"
sendalert
Sub SendAlert()
Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingMethod =
"
http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2 '// Needs to be a 1 if on the local SMTP server
Const cdoSMTPServer =
"
http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort =
"
http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPAuthenticate =
"
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
'// assume constants are defined within script file
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "192.168.2.5" '//Mail server goes here
' .Item(cdoSMTPServerPort) = 25
' .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
.Item(cdoSMTPAuthenticate) = cdoAnonymous
' .Item(cdoSendUserName) = "username"
' .Item(cdoSendPassword) = "password"
' .Item(cdoURLProxyServer) = "server:80"
' .Item(cdoURLProxyBypass) = "<local>"
' .Item(cdoURLGetLatestVersion) = True
.Update
End With
With iMsg
Set .Configuration = iConf
.To = sRecipients
.From = sFrom
.Sender = sSender
.Subject = sSL
.TextBody = sBody
If sAttachment <> "" Then
.AddAttachment sAttachment
End If
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub
Michael Holzemer