hassan_RK
شنبه 02 اردیبهشت 1385, 15:40 عصر
با سلام
کد زیر رو از هاستم گرفتم
لطفا راهنمایی کنید
Dim objMail As New MailMessage
' recipients
objMail.From = MailFrom
objMail.To = MailTo
If Cc <> "" Then
objMail.Cc = Cc
End If
If Bcc <> "" Then
objMail.Bcc = Bcc
End If
' message
objMail.Priority = Priority
objMail.Subject = Subject
objMail.BodyFormat = BodyFormat
objMail.BodyEncoding = BodyEncoding
objMail.Body = Body
' attachment
If Attachment <> "" Then
objMail.Attachments.Add(New MailAttachment(Attachment))
End If
' external SMTP server
If SMTPServer <> "" Then
اینجا بجایSMTPServe چی بنویسم هم خط بالا و هم خط پائین ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
SmtpMail.SmtpServer = SMTPServer
Select Case SMTPAuthentication
این دستور رو نمی شناسه SMTPAuthentication چطوریه بنویسم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
Case "", "0" ' anonymous
Case "1" ' basic
خط زیر بجای SMTPUsernameو SMTPPasswordچی بنویسم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
If SMTPUsername <> "" And SMTPPassword <> "" Then
'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUsername
'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="207.176.218.122"
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=251
End If
Case "2" ' NTLM
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
End Select
End If
Try
SmtpMail.Send(objMail)
Catch objException As Exception
' mail configuration problem
این دو خط آخر رو هم نمی شناسه SendMail وLogException؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
SendMail = objException.Message
LogException(objException)
End Try
End Function
لطفا راهنمایی بفرمائید
کد زیر رو از هاستم گرفتم
لطفا راهنمایی کنید
Dim objMail As New MailMessage
' recipients
objMail.From = MailFrom
objMail.To = MailTo
If Cc <> "" Then
objMail.Cc = Cc
End If
If Bcc <> "" Then
objMail.Bcc = Bcc
End If
' message
objMail.Priority = Priority
objMail.Subject = Subject
objMail.BodyFormat = BodyFormat
objMail.BodyEncoding = BodyEncoding
objMail.Body = Body
' attachment
If Attachment <> "" Then
objMail.Attachments.Add(New MailAttachment(Attachment))
End If
' external SMTP server
If SMTPServer <> "" Then
اینجا بجایSMTPServe چی بنویسم هم خط بالا و هم خط پائین ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
SmtpMail.SmtpServer = SMTPServer
Select Case SMTPAuthentication
این دستور رو نمی شناسه SMTPAuthentication چطوریه بنویسم ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
Case "", "0" ' anonymous
Case "1" ' basic
خط زیر بجای SMTPUsernameو SMTPPasswordچی بنویسم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
If SMTPUsername <> "" And SMTPPassword <> "" Then
'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUsername
'objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="207.176.218.122"
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=251
End If
Case "2" ' NTLM
objMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
End Select
End If
Try
SmtpMail.Send(objMail)
Catch objException As Exception
' mail configuration problem
این دو خط آخر رو هم نمی شناسه SendMail وLogException؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
SendMail = objException.Message
LogException(objException)
End Try
End Function
لطفا راهنمایی بفرمائید