这是水区斑竹真介的问题。我本来答应他昨天帮他解决的，可是昨天我有事情出去了，今天有太忙，所以不能帮他解决。请大家看看，帮着解答一下。非常抱歉，真介。

主要是发送以后收不到

<%
email=trim(request.form("email"))
myemail=trim(request.form("myemail"))
linker=trim(request.form("linker"))
myname=trim(request.form("myname"))
subjects=trim(request.form("subject"))
content=request.form("content")
'############################################
'自动发送邮件，使用JMAIL
strtitle=subjects


strRecipientsName = linker
strRecipients = email
strFrom = myemail
strFromName = myname
strSubject = strTitle
strMessage = link & "　先生/女士：" & vbCrLf & vbCrLf &"　　　　您好！" &vbCrLf & vbCrLf
strMessage = strMessage & "这封邮件来自 : " & myname & " (" & myemail & ") " & vbCrLf & vbCrLf
strMessage = strMessage & content & vbCrLf & vbCrLf

strsender=strfrom
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = "5dmedia.com"
objNewMail.AddRecipient strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.body = strMessage
objNewMail.priority = 3
on error resume next '## Ignore Errors
objNewMail.execute
objnwemail.close
set objnewmail=nothing
%>













Text