CDO Mail Dilema

D

dthmtlgod

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,769
Messages
2,569,581
Members
45,055
Latest member
SlimSparkKetoACVReview

Latest Threads

Top