Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.03.2009, 10:33   #1
Микки
 
Регистрация: 31.03.2009
Сообщений: 4
По умолчанию Доработать код

Существует код по отправке листа на Мэйл но есть некоторые недостатки, главный он не сохраняет исходный текст при отправке.
Требуется доработать код следующим образом :
1. Вставить на лист! На отправку при посылке Значения должности и ФИО в ячейки G2:G5 листа. Как вы примере.

2 Вставить на любой посылаемый лист кнопку Вернуть.. и макрос Sub SendSheet1(), который осуществляет возврат отправителю обработанного листа. Пока все макросы при отправке удаляются. По хорошему адрес возврата тоже надо бы выбрать из базы адресов и присвоить его в Макрос Sub SendSheet1().
Спасиб
Вложения
Тип файла: rar Отправить лист по мэйлуГотовый.rar (19.5 Кб, 12 просмотров)
Микки вне форума Ответить с цитированием
Старый 31.03.2009, 11:34   #2
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Кому требуется?
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 31.03.2009, 11:58   #3
Микки
 
Регистрация: 31.03.2009
Сообщений: 4
По умолчанию

Мне требуется для работы а прошу я помочь форумчан.
Микки вне форума Ответить с цитированием
Старый 31.03.2009, 12:28   #4
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

По второму вопросу. Вставь макрос SendSheet1() не в модуль а на лист.
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 31.03.2009, 12:54   #5
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

по первому вопросу.
У тебя в ListBox(i,0) - хранится адрес
ListBox(i,1) - хранится должность
ListBox(i,2) - хранится ФИО
Вставляй куда нужно...
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 31.03.2009, 12:58   #6
Микки
 
Регистрация: 31.03.2009
Сообщений: 4
По умолчанию

Цитата:
Сообщение от mchip Посмотреть сообщение
По второму вопросу. Вставь макрос SendSheet1() не в модуль а на лист.
Но при отправке уничтожаются все исходные тексты.
Микки вне форума Ответить с цитированием
Старый 31.03.2009, 13:08   #7
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Цитата:
Сообщение от Микки Посмотреть сообщение
Но при отправке уничтожаются все исходные тексты.
Прикрепи к кнопке макрос
Sub test()
MsgBox"Я макрос!"
End Sub

и отправь.
Макрос запиши на лист, не в модуль!
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 31.03.2009, 13:12   #8
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Хотя модуль то же отправляется. а форма остается у тебя в книге
Виноват! Модуль не отправляется
Можно сделать все! Было бы время, да деньги...

Последний раз редактировалось mchip; 31.03.2009 в 13:22. Причина: ошибка
mchip вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нашёл код не поможете доработать его eldar Работа с сетью в Delphi 6 24.01.2010 21:27
Как доработать код ? zander Microsoft Office Excel 3 04.03.2009 20:22
Помогите доработать чат BakX Работа с сетью в Delphi 8 06.10.2008 19:30
доработать кусочек программы Алёна Помощь студентам 1 21.05.2007 13:07