Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]
..........................................................................................................................


Как вставить текст в создаваемое письмо с помощью Visual Basic

Это можно сделать, например, с помощью следующей простой макрокоманды, которая создает новое письмо, автоматически заполняет его содержимое и далее предоставляет пользователю возможность вводить остальную информацию и отправлять письмо:

Листинг 1.



Sub NewMailToVasya()

  ' создание нового письма  

  Dim myMail As MailItem  

  Set myMail = CreateItem(olMailItem)  

  ' заполнение его полей  

  myMail.To = "vasya@mail.ru"  

  myMail.Subject = "Привет!"  

  myMail.body = "Вася!" & vbCrLf & _  

    "Я тут придумал такую классную штуку."  

  myMail.Display  ' выводим окно и дополняем текст  

End Sub

Но возможен и другой вариант — вы уже создали новое письмо и хотите в процессе его ввода сделать вставку какого-то текста.
В этом случае вам пригодится макрокоманда такого вида:

Листинг 2.



Sub InsertText() 

    'Вставить текст в текущее окно  

    Dim myMail As MailItem  

    ' выбирает текущее окно (т. е. нового письма)  

    Set myMail = Application.ActiveInspector.CurrentItem  

    myMail.body = myMail.body + " Привет семье!"  

End Sub


..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]
..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic
Рассылка 'По страницам сайта Visaul Progs' >>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! >>>Если у вас есть статья которой нет на сайте
пришлите ее мне-------->
Послать статью
>>>Если вы хотите задать вопрос
пишите-------->
Мне нужна помощь


Рейтинг сайтов YandeG Rambler's Top100
Реклама:

...:::Design by Mystf0rse 2005-2010 year:::...