Quote:
Originally Posted by Boogle
Does the path to the document exist on the server?
Are you using relative paths?
Post the code for you MailMessage and i'll point you in the right direction.
Boog's.
|
<%
sName=Request.form("txtName")
sEmail=Request.form("txtEmailId")
phone=Request.form("txtphone")
post=Request.form("postappliedfor")
cv=request.form("T2")
dim b
b=split(cv,".")
sMsg="<div align='center'><table border='0' cellpadding='1' cellspacing='1' style='border-collapse: collapse' width='100%'>"
sMsg=sMsg&"<tr><td align='right'colspan='3'> </td></tr>"
If sName <> "" Then
sMsg=sMsg&"<tr><td width='20%' align='right'><p align='right'><font face='Arial' size='2'><b>Name</b></font></td>"
sMsg=sMsg&"<td width='4%' align='center'><font face='Arial' size='2'><b>:</b></font></td>"
sMsg=sMsg&"<td width='75%'><font size='2' face='Arial'>"& sName &"</font></td></tr>"
End If
If sEmail<> "" Then
sMsg=sMsg&"<tr><td width='20%' align='right'><p align='right'><b><font face='Arial' size='2'>Email</font></b></td>"
sMsg=sMsg&"<td width='4%' align='center'><font face='Arial' size='2'><b>:</b></font></td>"
sMsg=sMsg&"<td width='75%'><font size='2' face='Arial'>"& sEmail &"</font></td></tr>"
End If
If phone<> "" Then
sMsg=sMsg&"<tr><td width='20%' align='right'><p align='right'><b><font face='Arial' size='2'>Phone No.</font></b></td>"
sMsg=sMsg&"<td width='4%' align='center'><font face='Arial' size='2'><b>:</b></font></td>"
sMsg=sMsg&"<td width='75%'><font size='2' face='Arial'>"& phone &"</font></td></tr>"
End If
If post<> "" Then
sMsg=sMsg&"<tr><td width='20%' align='right'><p align='right'><font face='Arial' size='2'><b>Post Applied For</b></font></td>"
sMsg=sMsg&"<td width='4%' align='center'><font face='Arial' size='2'><b>:</b></font></td>"
sMsg=sMsg&"<td width='75%'><font size='2' face='Arial'>"& post &"</font></td></tr>"
End If
sMsg=sMsg&"<tr><td align='right' colspan='3'> </td></tr>"
sMsg=sMsg&"</table></div>"
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.hotelclarks.com"
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUsername) = "test@hotelclarks.com"
.Item(cdoSendPassword) = "test123"
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
cdoMessage.From = sName&"<"&semail&">"
'cdoMessage.To = "hrd@clarksamer.com"
' cdoMessage.cc = "admin@clarksamer.com"
' cdoMessage.bcc= "satishflight@gmail.com"
cdoMessage.To = "epkgupta@gmail.com"
If Trim(cv) <> "" Then
cdoMessage.AddAttachment "file://" & sTempPath &cv// i am facing problem on this path
End If
if(b(1)="doc") then
.Subject = subject
.htmlBody = sMsg
.Send
flage="t"
else
flage="f"
end if
cdoMessage.Subject = "Enquiry from "&sName
cdoMessage.HTMLBody =sMsg
cdoMessage.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>