Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отправка листа с указанием адресата в копию / 7 сообщений из 7, страница 1 из 1
22.07.2011, 19:02
    #37363671
Нуво
Нуво
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка листа с указанием адресата в копию
Добрый вечер!

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

Код такой: Activesheet.SendMail "adres@mail.ru","Тема письма" - это отправка без копии.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2011, 19:20
    #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:25
    #37363701
Нуво
Нуво
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка листа с указанием адресата в копию
А через SendMail не сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2011, 19:30
    #37363703
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отправка листа с указанием адресата в копию
Нуво, выложите весь код
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2011, 19:38
    #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:43
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отправка листа с указанием адресата в копию / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 476ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176659]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 154ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 234ms
total:  476ms
x
x
Закрыть


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