راهنمایی برای ارسال ایمیل

با عرض سلام
من برای ارسال ایمیل از کامپونت CDONTS استفاده می کنم ولی خیلی سرعتش پائینه و دیر میرسه.
می خواستم بدونم کامپونتی هستش که سرعت ارسال ایمل با اون بالا باشه ؟
پیشاپیش از راهنمایی شما تشکر می کنم .

عزیز جان ماکروسافت کامپونت CDOnts رو متوقف کرده .

Content-Class
The Content-Class header explains the purpose of the e-mail or bulletin board message CDOSYS sends or posts. If the receiver is a Microsoft Exchange 2000 server, it uses this information to associate a schema and forms with the message. If the receiver is any other type of server, the information is ignored.

از این به بعد باید از کامپونت CdoSYS استفاده کنی .
این هم یه نمونه از برناه اون . استفاده کن حالشو ببر سرعتش هم بد نیست

'Sending SMTP mail via port 25 using CDOSYS

'This VB sample uses CDOSYS to send SMTP mail using the cdoSendUsingPort option and specifying a SMTP host.



' Note: It is recommended that all input parameters be validated when they are

' first obtained from the user or user interface.

Private Sub SendMessage(strTo As String, strFrom As String)



'Send using the Port on a SMTP server

Dim iMsg As New CDO.Message

Dim iConf As New CDO.Configuration

Dim Flds As ADODB.Fields

Dim strHTML



Set Flds = iConf.Fields



With Flds

    .Item(cdoSendUsingMethod) = cdoSendUsingPort

    .Item(cdoSMTPServer) = "mail.example.com"

    'Use SSL to connect to the SMTP server:

    '.Item(cdoSMTPUseSSL) = True

    .Item(cdoSMTPConnectionTimeout) = 10

    .Update

End With



' Build HTML for message body

strHTML = "<HTML>"

strHTML = strHTML & "<HEAD>"

strHTML = strHTML & "<BODY>"

strHTML = strHTML & "<b> This is the test HTML message body</b></br>"

strHTML = strHTML & "</BODY>"

strHTML = strHTML & "</HTML>"



With iMsg

    Set .Configuration = iConf

    .To = strTo

    .From = strFrom

    .Subject = "This is a test CDOSYS message (Sent by Port)"

    .HTMLBody = strHTML

    '.TextBody = "This is the text body of the message..."



    .Send

End With



' cleanup of variables

Set iMsg = Nothing

Set iConf = Nothing

Set Flds = Nothing



End Sub

دوست عزیز از راهنمایی شما ممنونم .

کمک فوری سی دی او و اتچ

یکی به ما جواب بده
چه جوری با cdo سایتم از رو سیستمم یه فایل رو ایمیل بفرسته برای کاربرا

کمکم کنید

جواب بدید

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