VBNet - Форум - использование Collaboration Data Objects

Вопрос: использование Collaboration Data Objects Добавлено: 25.12.06 12:18

Автор вопроса: mentos

Приветствую всех. Привожу простую ф-ю по которой отправляется сообщение на мыло. Как сделать так, чтобы она работала тогда, когда программы подгружает локальный пользователь? (компьютер в сети).

'функция отправки мыла с всеми указанными параметрами
'с помощу CDO
Function SendSimpleMail(ByVal stFrom As String, ByVal stTo As String, ByVal stSubject As String, ByVal stCharset As String, ByVal strBodyText As String, ByVal TipeMsg As String, ByVal FileAtach As String, _
ByVal sendusing As String, ByVal smtpserver As String, ByVal smtpserverport As Long, ByVal sendusername As String, _
ByVal sendpassword As String, ByVal smtpauthenticate As String, ByVal smtpusessl As String, ByVal smtpconnectiontimeout As String) As Boolean
On Error GoTo Err_SendSimpleMail
Dim cdoConfig As New CDO.Configuration
Dim cdoMessage As New CDO.Message

sch = "http://schemas.microsoft.com/cdo/configuration/"
With cdoConfig.Fields
.Item(sch & "sendusing") = sendusing
.Item(sch & "smtpserver") = smtpserver
.Item(sch & "smtpserverport") = smtpserverport
.Item(sch & "sendusername") = sendusername
.Item(sch & "sendpassword") = sendpassword
.Item(sch & "smtpauthenticate") = smtpauthenticate
.Item(sch & "smtpusessl") = smtpusessl
.Item(sch & "smtpconnectiontimeout") = smtpconnectiontimeout
.Update
End With

With cdoMessage
Set .Configuration = cdoConfig
.From = stFrom
.Subject = stSubject
If TipeMsg = "TextBody" Then
.TextBody = strBodyText
Else
.HTMLBody = strBodyText
End If
.TextBodyPart.Charset = stCharset
If Len(FileAtach) > 0 Then .AddAttachment FileAtach
.DSNOptions = cdoDSNSuccessFailOrDelay
.To = stTo
.Fields.Update
.Send
SendSimpleMail = True
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing
Exit_SendSimpleMail:
Exit Function
Err_SendSimpleMail:
SendSimpleMail = False
Resume Exit_SendSimpleMail
End Function

Из компа-сервера (который раздает инет) отправляет нормально, нео когда грузят локальные машины программу, то не отправляет. Думал файрволы.. но даже при отключении.. ничего! Пишет "Транспорту не удалось подключиться к серверу"
Ответить

Ответы Всего ответов: 0

Нет ответов

Страница: