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