|
Home > Archive > IIS ASP > April 2005 > CDO Mail Dilema
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
|
|
| dthmtlgod 2005-04-29, 6:13 pm |
| I have many other sites that use the same format, the textbody of the e-mail
is not coming through on this page. Can't understand why. Nothing shows
after the subject.
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "EXCIM01"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "Automation_Server <Syracuse.com>"
.To = "Syracuse.com"
.CC = UserEmail
.Subject = "Termination Request for " & trmUserName
.TextBody = _
"USER INFORMATION" & vbCrLF & vbcrLF & _
"User ID: " & trmUserID & vbcrLF & _
"User Name: " & trmUserName & vbcrLF &
_
"Termination Date: " & trmDate & vbcrlf & _
"Need access removed for the following: " & Apps & vbcrlf & _
"----------------------------------------------------------------------" &
vbcrLF & _
"AUTHORIZING MANAGER INFORMATION" & vbcrLF & vbcrLF & _
"Manager Name: " & autName & vbcrLF & _
"Manager Phone Number: " & autPhone & vbcrLF & _
"----------------------------------------------------------------------" &
vbcrLF & _
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
| |
| dthmtlgod 2005-04-29, 6:13 pm |
| Figured it out on my own. Thanks
"dthmtlgod" <dvan@hotmail.com> wrote in message
news:uhv0u1OTFHA.2392@TK2MSFTNGP10.phx.gbl...
> I have many other sites that use the same format, the textbody of the
e-mail
> is not coming through on this page. Can't understand why. Nothing shows
> after the subject.
>
> Set cdoConfig = CreateObject("CDO.Configuration")
> With cdoConfig.Fields
> .Item(cdoSendUsingMethod) = cdoSendUsingPort
> .Item(cdoSMTPServer) = "EXCIM01"
> .Update
> End With
>
> Set cdoMessage = CreateObject("CDO.Message")
>
> With cdoMessage
> Set .Configuration = cdoConfig
> .From = "Automation_Server <Syracuse.com>"
> .To = "Syracuse.com"
> .CC = UserEmail
> .Subject = "Termination Request for " & trmUserName
> .TextBody = _
> "USER INFORMATION" & vbCrLF & vbcrLF & _
> "User ID: " & trmUserID & vbcrLF &
_
> "User Name: " & trmUserName & vbcrLF
&
> _
> "Termination Date: " & trmDate & vbcrlf & _
> "Need access removed for the following: " & Apps & vbcrlf & _
>
> "----------------------------------------------------------------------" &
> vbcrLF & _
> "AUTHORIZING MANAGER INFORMATION" & vbcrLF & vbcrLF & _
> "Manager Name: " & autName & vbcrLF & _
> "Manager Phone Number: " & autPhone & vbcrLF &
_
>
> "----------------------------------------------------------------------" &
> vbcrLF & _
> .Send
> End With
>
> Set cdoMessage = Nothing
> Set cdoConfig = Nothing
>
>
| |
| Kyle Peterson 2005-04-29, 6:13 pm |
| http://www.powerasp.com/content/new...mail_cdosys.asp
"dthmtlgod" <dvan@hotmail.com> wrote in message
news:uhv0u1OTFHA.2392@TK2MSFTNGP10.phx.gbl...
>I have many other sites that use the same format, the textbody of the
>e-mail
> is not coming through on this page. Can't understand why. Nothing shows
> after the subject.
>
> Set cdoConfig = CreateObject("CDO.Configuration")
> With cdoConfig.Fields
> .Item(cdoSendUsingMethod) = cdoSendUsingPort
> .Item(cdoSMTPServer) = "EXCIM01"
> .Update
> End With
>
> Set cdoMessage = CreateObject("CDO.Message")
>
> With cdoMessage
> Set .Configuration = cdoConfig
> .From = "Automation_Server <Syracuse.com>"
> .To = "Syracuse.com"
> .CC = UserEmail
> .Subject = "Termination Request for " & trmUserName
> .TextBody = _
> "USER INFORMATION" & vbCrLF & vbcrLF & _
> "User ID: " & trmUserID & vbcrLF & _
> "User Name: " & trmUserName & vbcrLF &
> _
> "Termination Date: " & trmDate & vbcrlf & _
> "Need access removed for the following: " & Apps & vbcrlf & _
>
> "----------------------------------------------------------------------" &
> vbcrLF & _
> "AUTHORIZING MANAGER INFORMATION" & vbcrLF & vbcrLF & _
> "Manager Name: " & autName & vbcrLF & _
> "Manager Phone Number: " & autPhone & vbcrLF & _
>
> "----------------------------------------------------------------------" &
> vbcrLF & _
> .Send
> End With
>
> Set cdoMessage = Nothing
> Set cdoConfig = Nothing
>
>
|
|
|
|
|