کد و راهنمایی فرستادن ایمیل با اتتچمنت برای شما

[amirlol]

سلام دیدم همه جا این سوال هست گفتم بزارممش تا مشکلاتون حل بشه

<%
Sub send_email(strEmail_from, strEmail_to, strEmail_subject, _
  strEmail_body, strEmail_attach)
    Dim Newmail
    Set newmail = server.CreateObject ("cdonts.newmail")

    newmail.bodyformat = 0
    newmail.mailformat = 0
    newmail.from = strEmail_from
    newmail.to = strEmail_to
    newmail.subject = strEmail_subject
    
    If strEmail_attach <> "" then
        newmail.AttachFile(strEmail_attach)
    End If
    
    newmail.body = strEmail_body
    newmail.send
    Set newmail = Nothing    
End Sub
%>

و برای صدا زدنشم از کد زیر استفاده می کنیم

Call send_email("Email_from", "Email_to", "Email_subject", _
    "Email_body", "c:\file.doc")

 

[esf-kh]

با سپاس از شما . این کد چه جوری کار می‌کنه ؟ اگر من فرمم را بسازم و مقادیر را به ترتیب به newmail.from و newmail.to و newmail.subject بدهم و روی سرور بفرستمش کار می‌کنه ؟ نیازی به تنظیمات سروری نداره ؟ لطفا راهنمایی کنید . سپاسگزارم

 

[amirlol]

و بعدش کافیه سرورت cdonts رو ساپورت کنه