это моя первая прога, сделал(частично нашёл и связал) полтора года назад. отправляет txt файл на почту созданием CDO.Message. так вот... у некоторого процента людей код тупо не работал. плевать, казалось бы, но за это время таких людей набралась приличная туча, которым моя программа не смогла пригодиться. и вот сейчас прогу ждёт очень важный клиент. и у него не работает прога(отправка). это меня очень печалит, а сроки поджимают. что может быть проще - текст на одном компе, нужно прочитать на другом. и такой тупик
предложите плз все простые способы отправки. желательно код, т.к. обрывки обычно стандартные, код необъёмный. запихаю все варианты в прогу, хоть один-то должен сработать. делюсь своим вариантом. рабочим, что, как я сегодня проверил, обыcкивая инет, тоже редкость. желательно отправку на почту, на крайняк можно изощрённые способы типа винсок или авторизации где-либо и сохранения там этого файла без отправки. заранее спс
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim Msg As CDO.Message
Set Msg = New CDO.Message
On Error GoTo variant2
Msg.From = "111111@mail.ru" & " <" & "111111@mail.ru" & ">"
Msg.To = "222222@mail.ru"
Msg.Subject = "111"
Msg.TextBody = "111"
Msg.AddAttachment "C:\1\1.txt"
With Msg.Configuration.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.mail.ru"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "111111"
.Item(cdoSendPassword) = "parolb"
.Update
End With
Msg.Send
Set Msg = Nothing
