Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Microsoft office - word, excel, powerpoint... самоучитель


Читать книги! Рецензия на книгу. Что почитать?

 



Новости.
Росстат счел теневой пятую часть экономики России

Валютные резервы Китая превысили российские почти в шесть раз

Москва сделает американские окорочка предметом политического торга

Глава Альфа-банка предупредил о новом финансовом пузыре

Резервы России в 2009 году превысили 440 миллиардов долларов

РЖД ввела услугу электронной регистрации на поезд

Турция и Россия перейдут на расчеты в лирах и рублях

Правительство РФ обнародовало план антикризисных мер на 2010 год



Интересные рассылки Subscribe:

Рассылки Subscribe.Ru
Самое интересное в окружающем мире. Тайны современного мира
Лучшие сайты. Обмен ссылками. Каталог российских сайтов
Читать книги! Рецензия на книгу. Что почитать?
Умные мысли. Афоризмы и цитаты великих людей. Афоризм дня
Метафоры в жизни. Метафора как подражание и как троп
Лучшие цитаты и афоризмы о жизни и о бизнесе. Мудрые притчи
Microsoft office - word, excel, powerpoint... самоучитель
Современный мир. Глобальные проблемы. Эволюция человека
Аренда квартир в Москве. Снять (сдать) квартиру. Наем жилья
Обслуживание и ремонт компьютеров. Комплектующие, программы
Раскрутка продвижение сайта. Поисковая оптимизация сайта
Планирование карьеры. Как правильно составить резюме?
Работа в Москве. Рынок вакансий. Как найти работу в Москве?
Маркетинговая стратегия. Реклама. PR. Управление маркетингом
Размещение рекламы в интернете. PR кампании и маркетинг
Управление рисками. Антикризисное управление.

 

Создание сайтов недорого. Анализ и оптимизация сайта. Раскрутка и продвижение в интернете.

 

Здравствуйте, дорогие читатели! Вопросы и предложениям присылайте на msoffi@mail.ru. .


 

MS Office и отправка почты. 1. Отправка почты из MS Word.

 

Поступило предложение рассмотреть различные варианты автоматизации отправки почтовых сообщений из офисных программ. В сегодняшнем выпуске рассмотрим простейший вариант - отправка содержимого открытого документа MS Word через MS Outlook. Вам необходимо скопировать предложенный пример, заменить строки
.To = "box1@mail.ru"
.CC = "box2@mail.ru"
.Subject = "Пример рассылки"
т.е. в кавычких должны быть ваши данные - адрес (кому), скрытая копия и тема письма. В ворде вы набираете текст, который хотите отправить, запускаете макрос, подтверждаете во всплывающем окне "Программа пытается автоматически отправить..." т.е. нужно нажать "Да". Вот и все. Набранный вами текст будет отправлен по тем адресам, которые вы указали.

В следующем выпуске я продолжу данную тему в соответствии с вашими пожеланиями (если большинство проголосует "за"). Можно усовершенствовать работу со списком рассылки. Тут уже все зависит от конкретных ситуаций, так что высказывайтесь :) . Вполне возможно, что у Вас нет программы MS Outlook. Или вы хотите использовать другой почтовик (не со всеми я смогу разобраться :( ).

А вот, собственно и сам текст макроса:



Sub post()
'
' post Макрос
'
'
Dim bStarted As Boolean
Dim oOutlookApp
Dim oItem
On Error Resume Next

'Получить объект Outlook, если он загружен
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then

'Outlook не загружен, запускаем его из кода

Set oOutlookApp = CreateObject("Outlook.Application")

bStarted = True
End If
'Создаем новый объект mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem

'Устанавливаем адрес для нового письма

.To = "box1@mail.ru"

'Устанавливаем адрес для копии письма

.CC = "box2@mail.ru"

'Устанавливаем заголовок

.Subject = "Пример рассылки"

'Текст документа используем как тело письма.

.Body = ActiveDocument.Content

.Send
End With
If bStarted Then

'Если запустили Outlook из кода, то закрываем его

oOutlookApp.Quit
End If
'Все очищаем
Set oItem = Nothing
Set oOutlookApp = Nothing

End Sub


Этот код отправляет текст документа как содержимое письма ( то есть не прилагает его) и отправляет его чистым текстом, так что все его форматирование пропадет.


Продолжать примеры с автоматизацией отправки почты из офисных программ?
(голосование возможно только из письма рассылки)
  • - Да, продолжать
  • - Нет, не нужно



  • Присылайте свои предложения и замечания на msoffi@mail.ru


     

    Анекдоты.

     

    - Меня особенно восхищает интернациональный характер вашего искусства. Весь мир любуется вашими полотнами, они нравятся всем людям, - говорит ученый художнику.
    - Ваша слава меня еще более удивляет, - говорит художник ученому. - Весь мир восхищается вами, хотя никто вас не понимает.


    - Профессор, научите, пожалуйста, моего сына играть на скрипке.
    - А слух у него есть?
    - Вы знаете, когда я его зову, он, как правило, откликается.


    Чиновники очень любят смотреть на морской прибой с берега.
    Откат за откатом.


    - Ты согласен, что самоубийство это вечное решение временной проблемы?
    - Нет. Я буддист. Я думаю, что самоубийство - временное решение вечной проблемы.


    Читать другие анекдоты>>





    Полезные рассылки:

     

    Читать книги! Рецензия на книгу. Что почитать?

    Эта рассылка предназначена для тех, кто любит читать книги, отслеживает появление книжных новинок и часто задает себе вопрос "что почитать?" В ней публикуются рецензии на книги, отзывы читателей, аннотация к книгам и небольшие авторские "отступления" - "навеяло после прочтения" или "почему эта книга вызывает такой резонанс...?".


    Лучшие сайты. Обмен ссылками

    В этой рассылке Вас будут знакомить с лучшими находками на необъятных просторах интернета! Вы сможете оценить сайты, которые показались нам лучшими, интересными и полезными для нас, и возможно они будут интересны и Вам.


    Умные мысли. Афоризмы и цитаты великих людей.

    Эта рассылка посвящена Умным мыслям, т.е. разнообразным идеям и мнениям, которые заставляют нас задуматься о важных вопросах и которые помогают нам найти наше место в жизни. Это афоризмы и притчи великих людей, цитаты и высказывания о различных сферах нашей жизни. Плюс - некоторые комментарии, заметки и попытки найти аналогии в психологии, социологии и просто жизненном опыте и в "современной действительности".


    Метафоры в жизни. Метафора как подражание и как троп

    Рассылка о метафорах. Примеры метафор в литературе и в жизни. В каких случаях метафоры нам помогают. Когда нужно задуматься - а почему человек использует метафоры? Может быть за "красивыми словами" что-то скрывается?



    Жду ваши письма и предложения.   msoffi@mail.ru

    Игорь.


    В избранное