MailFromName= "customer"
SmtpFlag="0 "
MailSubject= "design consultation"
Mail recipient
Theme theme
Message content of email body
User name The sender's mailbox user name.
Password The sender's email password.
The e-mail address of the sender.
FromSMTP sender mail server
Secret mail bcc recipient
Copy the super-delivered message to the recipient.
AppendMessages attaches the body of the letter.
Call sendmail (email, subject, email body, user name, password, frommail, from SMTP, secret mail, chaosongmail, append messages).
1 returned successfully.
E_Server = "smtp. 163.com "''sending server.
E _ serveruser = "xxxx @163.com"'' login user name.
E_ServerPass = "xxxxx "'login password
E _ sendmanmail = "XXX @163.com"' sender's email address' E_SendManName = "system administrator"' sender's name.
Function SendMail ()
Dim Jmail
set Jmail = server . createobject(" Jmail。 Message ")
Jmail。 Charset = "GB23 12 "'sending code
Jmail。 ContentTransferEncoding = " base64 "
Jmail。 Encoding = "base64 "
Jmail。 Equal coding header = false
jmail。 ContentType="html/text" jmail。 ISOEncodeHeaders ="False "
Jmail。 Silent = true
Jmail。 Priority = 3' surface mail
Jmail。 MailServerUserName = "own email account"' email user name, which needs to be modified according to the actual situation.
Jmail。 MailServerPassword = "password "'email password, which needs to be modified according to the actual situation.
Jmail。 From = "account number"
Jmail。 Subject = "theme"
Jmail。 AddRecipient ("account number")
JMail。 AppendHTML message
JMail。 Body=mailcontent
Jmail.addcustomattachment server.mappath ("../fdcpx/images/1.gif))," image/gif "'adds a user-defined letterhead. JMail。 AddRecipientBCC ("the recipient's mailbox")' bcc to the recipient.
JMail。 AddRecipientCC ("the recipient's mailbox")' cc to the recipient.
Jmail。 Appendbodyfromfile "c: \ \ ss.rar"' takes the file as the body of the letter.
jmail。 add attachment server . mappath(formPath & amp； New name)
If appendMessages= ""or isnull(appendMessages), then
other
JMail。 AppendText ("Add the body of the letter, such as adding a greeting or other information")' Add the body of the letter, such as adding a greeting or other information.
If ... it will be over.
Jmail.send ("SMTP.163.com")' SMTP server needs to be modified according to the actual situation.
Set Jmail = none
SendMail= 1
End function
SendMail % & gt