Не подскажете, как переделать ваш макрос для масовой разсылки писем (много адресатов, моного прикрепленных файлов (имею 3 колонки ФИО, мейл, путь до файла)), я пробовал через цикл, но у меня отправляет или 1 все файлы, или всем только 1.
Rioran,
Не подскажете, как переделать ваш макрос для масовой разсылки писем (много адресатов, моного прикрепленных файлов (имею 3 колонки ФИО, мейл, путь до файла)), я пробовал через цикл, но у меня отправляет или 1 все файлы, или всем только 1.makao
Уважаемые эксперты, простите, пожалуйста, за возможно простой вопрос. Но не могли бы вы подсказать, как при отправке писем из Excel (через Outlook), в макросе на данном этапе «.Body = "Text of the letter"» можно было бы набирать текст с новых строк (если просто печатать текст в кавычках после Body = то в письме это будет одна сплошная строка).
(Пример) Вот макрос, которым я пользуюсь, но мне нужно, чтобы в строке .Body = текст выглядел так, как указано ниже:
Sub SendMail() Dim objOL As Object Dim objMail As Object Set objOL = CreateObject("Outlook.Application") Set objMail = objOL.CreateItem(0) With objMail .To = "" .CC = "" .Body = " Добрый день,
Высылаю отчёт.
С уважением, Кузнецов Александр Иванович " .Subject = "" .Attachments.Add " .Display End With Set objMail = Nothing Set objOL = Nothing End Sub [moder]Читаем Правила форума, создаём свою тему в соответствующем разделе. Эта тема закрыта[/moder]
Уважаемые эксперты, простите, пожалуйста, за возможно простой вопрос. Но не могли бы вы подсказать, как при отправке писем из Excel (через Outlook), в макросе на данном этапе «.Body = "Text of the letter"» можно было бы набирать текст с новых строк (если просто печатать текст в кавычках после Body = то в письме это будет одна сплошная строка).
(Пример) Вот макрос, которым я пользуюсь, но мне нужно, чтобы в строке .Body = текст выглядел так, как указано ниже:
Sub SendMail() Dim objOL As Object Dim objMail As Object Set objOL = CreateObject("Outlook.Application") Set objMail = objOL.CreateItem(0) With objMail .To = "" .CC = "" .Body = " Добрый день,
Высылаю отчёт.
С уважением, Кузнецов Александр Иванович " .Subject = "" .Attachments.Add " .Display End With Set objMail = Nothing Set objOL = Nothing End Sub [moder]Читаем Правила форума, создаём свою тему в соответствующем разделе. Эта тема закрыта[/moder]chendex
Сообщение отредактировал Pelena - Вторник, 14.07.2015, 14:28