shahram_g
چهارشنبه 22 تیر 1390, 21:41 عصر
سلام.
من از كد زير با استفاده از پروتكل smtp جي ميل مي تونم ميل ارسال كنم ولي وقتي در محل كار از اين برنامه استفاده مي كنم اجازه دسترسي به پورت 465 ، 25، 2525 و... كه پورتهاي معمول و متعارف اين پروتكل هستند رو نميده.
چطوري مي تونم اين مشكل رو حل كنم.آيا مي تونم از پورت ديگه اي استفاده كنم؟
اصلا امكان دور زدن فاير وال شبكه محل كار هست؟
يا مي تونم از يك پروتكل ديگه استفاده كنم؟
مثلا از ر كار راحت از طريق سايت جيميل ميشه ايميل ارسال كرد.پس قطعا از يك پروتكل كه فايروال بهش گير نده ميشه استفاده كرد.
لطفا راهنمايي كنيد.
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean
Form1.MousePointer = 11
Dim iMsg, iConf, Flds, schema, SendEmailGmail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Sender
Flds.Item(schema & "sendpassword") = Password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
On Error GoTo errormail
With iMsg
DoEvents
.To = Reciever
.From = Sender
.Subject = Subject
.HTMLBody = Text
.Sender = Sender
.Organization = "S.M.B Productions"
.ReplyTo = Sender
' For i = 1 To 20
'If fileattach(i) <> "" Then
' aaa = fileattach
' MsgBox aaa
If Form1.Text4.Text <> "" Then
.AddAttachment (Form1.Text4.Text)
End If
' Next
Set .Configuration = iConf
SendEmailGmail = .send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Form1.MousePointer = 0
SendMail = True
resultmail = True
End
من از كد زير با استفاده از پروتكل smtp جي ميل مي تونم ميل ارسال كنم ولي وقتي در محل كار از اين برنامه استفاده مي كنم اجازه دسترسي به پورت 465 ، 25، 2525 و... كه پورتهاي معمول و متعارف اين پروتكل هستند رو نميده.
چطوري مي تونم اين مشكل رو حل كنم.آيا مي تونم از پورت ديگه اي استفاده كنم؟
اصلا امكان دور زدن فاير وال شبكه محل كار هست؟
يا مي تونم از يك پروتكل ديگه استفاده كنم؟
مثلا از ر كار راحت از طريق سايت جيميل ميشه ايميل ارسال كرد.پس قطعا از يك پروتكل كه فايروال بهش گير نده ميشه استفاده كرد.
لطفا راهنمايي كنيد.
Function SendMail(Sender As String, Subject As String, Reciever As String, Text As String, Password As String, AttachFile As String) As Boolean
Form1.MousePointer = 11
Dim iMsg, iConf, Flds, schema, SendEmailGmail
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' send one copy with Google SMTP server (with autentication)
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Sender
Flds.Item(schema & "sendpassword") = Password
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
On Error GoTo errormail
With iMsg
DoEvents
.To = Reciever
.From = Sender
.Subject = Subject
.HTMLBody = Text
.Sender = Sender
.Organization = "S.M.B Productions"
.ReplyTo = Sender
' For i = 1 To 20
'If fileattach(i) <> "" Then
' aaa = fileattach
' MsgBox aaa
If Form1.Text4.Text <> "" Then
.AddAttachment (Form1.Text4.Text)
End If
' Next
Set .Configuration = iConf
SendEmailGmail = .send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Form1.MousePointer = 0
SendMail = True
resultmail = True
End