راهنمایی برای ارسال ایمیل [بایگانی]

amirferdowsi

پنج شنبه 24 فروردین 1385, 12:56 عصر

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

لوک خوش شانس

پنج شنبه 24 فروردین 1385, 17:01 عصر

عزیز جان ماکروسافت کامپونت 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

amirferdowsi

شنبه 26 فروردین 1385, 09:14 صبح

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

pcgraph

یک شنبه 28 آبان 1385, 02:12 صبح

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

کمکم کنید

pcgraph

دوشنبه 13 آذر 1385, 00:20 صبح

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