Всё таже проблема с SMTP

[Герман]

Я вот думаю в чем проблема??? Я осуществляю вот так отправку писем :
Dim Msg As New CDO.Message
Dim Msghtml As String
Msg.HTMLBody = "Здравствуйте, <br>см. вложения..."
Msg.Subject = (Subject)
Msg.AddAttachment (filename)
With Msg.Configuration.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "smtp.mail.ru"
.Item(cdoSMTPConnectionTimeout) = 360
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSMTPUserName) = account2smtp
.Item(cdoSMTPUserPassword) = password2smtp
End With
Msg.Configuration.Fields.Update

With Msg
.To = mail1
.FROM = fr
.Subject = & CDate(Date)
.Send
End With
У меня в офисе оптоволокно +беспровадная сеть и аська и всё работает... а в соседнем городе - ADSL+беспровадная сеть(занимаю порт 8080)+ Аська забивается порт 5600 или не в этом проблема???

[RayShade]

Хотелось бы более детальных сведений об ошибках.