ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отправка листа с указанием адресата в копию
7 сообщений из 7, страница 1 из 1
Отправка листа с указанием адресата в копию
    #37363671
Нуво
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуво
Гость
Добрый вечер!

Подскажите, пожалуйста, что нужно добавить в коде, чтобы отправить лист на "adres@mail.ru", а копию на "copyadres@mail.ru", в справке ни как не разберусь.

Код такой: Activesheet.SendMail "adres@mail.ru","Тема письма" - это отправка без копии.
...
Рейтинг: 0 / 0
22.07.2011, 19:02
| Ответить | Цитировать | Написать  
Отправка листа с указанием адресата в копию
    #37363693
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Нуво,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
With objMail
.To = "" '"mm@mm.ru; dd@dd.ru" 'адрес e-mail для отправки письма, если несколько адресов e-mail, пишем, отделяя их точкой с запятой - ";"
.CC = "" 'копия
.Subject = "" 'это тема письма
'.Body = "Это текст письма" 'вариант отправки определённого текста
'.Body = ActiveDocument.Selection 'вариант отправки выделенного текста
.Attachments.Add TempDocPath '
'.Attachments.Add 'если надо второе вложенное письмо, тогда добавляем второй Attachments
...
Рейтинг: 0 / 0
22.07.2011, 19:20
| Ответить | Цитировать | Написать  
Отправка листа с указанием адресата в копию
    #37363701
Нуво
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуво
Гость
А через SendMail не сделать?
...
Рейтинг: 0 / 0
22.07.2011, 19:25
| Ответить | Цитировать | Написать  
Отправка листа с указанием адресата в копию
    #37363703
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Нуво, выложите весь код
...
Рейтинг: 0 / 0
22.07.2011, 19:30
| Ответить | Цитировать | Написать  
Отправка листа с указанием адресата в копию
    #37363707
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Нуво,

хелпRecipients Required Variant. Specifies the name of the recipient as text, or as an array of text strings if there are multiple recipients. At least one recipient must be specified, and all recipients are added as To recipients.

то бишь типа:
Код: plaintext
Activesheet.SendMail Array("adres@mail.ru","copyadres@mail.ru"),"Тема письма"
сам не пробовал
...
Рейтинг: 0 / 0
22.07.2011, 19:38
| Ответить | Цитировать | Написать  
Отправка листа с указанием адресата в копию
    #37363708
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Впрочем, в "СС" это все равно не попадет, судя по хелпу
...
Рейтинг: 0 / 0
22.07.2011, 19:38
| Ответить | Цитировать | Написать  
Отправка листа с указанием адресата в копию
    #37363714
Нуво
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нуво
Гость
Да самый простой код, здесь его уже выкладывали, но как указать адресата в копию этим способом, на форуме нет. Если просто рассылку сделать, то .SendMail Array ("адрес1";"адрес2";...), а в копию как?

Sheets("Лист1").Copy

ActiveWorkbook.Cells.Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\FAMILY\Мои документы\Новая книга.xls"

ActiveWorkbook.SendMail "adres@mail.ru"

ActiveWorkbook.Close False

Kill "C:\Documents and Settings\All Users\Мои документы\Новая книга.xls"
...
Рейтинг: 0 / 0
22.07.2011, 19:43
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отправка листа с указанием адресата в копию
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37363703&tid=2176659]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 224ms
total:  328ms
созд. / загр.: 328ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]