|
|
|
Forum Member
 
участник
Last Login: 25.12.2007 12:56
Сообщ.: 43,
Visits: 178
|
|
| Доброго времени суток всем. Необходимо с локальной машины отправить почту с использованием CDO. Вопрос 1: как проверить соединение. 2: как отправить письмо с локальной машины (с головного компьютера отправляет наура). Заранее благодарен.
фанат
|
|
|
|
|
Forum Member
участник
Last Login: 25.12.2007 12:56
Сообщ.: 43,
Visits: 178
|
|
Люди добрые, как через локальную машину под Access пульнуть письмо в интернет? Ну если лень писать, то ссылками одарите, чтоль.
фанат
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
Может здесь, что-нибудь найдете
http://sql.ru/forum/actualtopics.aspx?search=cdo&submit=%CD%E0%E9%F2%E8&bid=4
|
|
|
|
|
Forum Member
участник
Last Login: 25.12.2007 12:56
Сообщ.: 43,
Visits: 178
|
|
| Ничего там не нашел... много, но как с локальной машины отправить письмо нет. И все же... неужели никто не задавался такой проблемой? Помогите плс. Мне просто надо отправить письмо с локальной машины... В гугле чего только не набирал.. нигде ничего... неделю парюсь. Может денег кому-то на телефон положить за решение задачи? Ну очень нужно. :(
фанат
|
|
|
|
|
Supreme Being
участник
Last Login: 06.07.2008 10:37
Сообщ.: 236,
Visits: 1 734
|
|
| Что именно не получается? Неплохо бы увидеть код отправки. В свое время делал отсылку почты в ACCESS с помощью CDO. Вот ссылка - http://www.paulsadowski.com/WSH/cdo.htm. ( Мне помогла 100%. ) Будут вопросы - пиши, чем смогу - помогу. Удачи.
|
|
|
|
|
Forum Member
участник
Last Login: 25.12.2007 12:56
Сообщ.: 43,
Visits: 178
|
|
| Спасибо за ссылку. Всё, что по ней у меня работает. Вот простая ф-я отправки письма. Но проблема в том, что когда локальная машина в сети грузит Акцессину, из неё отправка не осуществляется. Пишет "Транспорту не удалось подключиться к серверу". Интернет есть.. настроен.. Проблема именно в использовании локальными машинами. Админ грит, все в файрволе настроено.. указанный smtp открыт.. вобщем не могу понять. Если не секрет, можно ли другими средствами реализовать данную задачу? CDO мне очень нравится... да и сторонние компоненты исп-ть не хочу. Вот обычная ф-я. 'функция отправки мыла с всеми указанными параметрами
'с помощу 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
фанат
|
|
|
|