Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Почта Добавлено: 27.09.04 22:31  

Автор вопроса:  bsv | ICQ: 209134224 
Имеем e-mail
имеем текст
как отправить по этому e-mail данный текст

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 bsv



ICQ: 209134224 

Вопросов: 16
Ответов: 7
  Профиль | | #1 Добавлено: 28.09.04 00:24
Сам задал - сам ответ
Sub Send_Msg()
  ;Dim objOL As New Outlook.Application
  'Создаем новый объект Dim objMail As MailItem

  Set objOL = New Outlook.Application
  'присваиваем значение Set objMail=objOL.CreateItem(olMailItem)

  With objMail
    .To = "name@domain.com"
    'Адрес получателя .Subject = "ytroi"
    'Тема письма .Body = "TIOITYTGOTY"
  End With
  Set objMail = Nothing
  'Уничтажаем все сылки на объект
   Set objOL = Nothing
  'Уничтажаем все сылки на объект
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #2 Добавлено: 28.09.04 20:10
vot shas bsv kod raskrashu...
[CODE]Sub Send_Msg()
  Dim objOL As New Outlook.Application
  'Создаем новый объект
  Dim objMail As MailItem

  Set objOL = New Outlook.Application
  'присваиваем значение
  Set objMail=objOL.CreateItem(olMailItem)

  With objMail
    .To = "name@domain.com"
    'Адрес получателя
    .Subject = "ytroi"
    'Тема письма
    .Body = "TIOITYTGOTY"
  End With
  Set objMail = Nothing
  'Уничтажаем все сылки на объект
   Set objOL = Nothing
  'Уничтажаем все сылки на объект
End Sub [/CODE]

Ответить

Номер ответа: 3
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #3 Добавлено: 28.09.04 20:11
vot shas bsv kod raskrashu...
[CODE]
Sub Send_Msg()
  Dim objOL As New Outlook.Application
  'Создаем новый объект
  Dim objMail As MailItem

  Set objOL = New Outlook.Application
  'присваиваем значение
  Set objMail=objOL.CreateItem(olMailItem)

  With objMail
    .To = "name@domain.com"
    'Адрес получателя
    .Subject = "ytroi"
    'Тема письма
    .Body = "TIOITYTGOTY"
  End With
  Set objMail = Nothing
  'Уничтажаем все сылки на объект
   Set objOL = Nothing
  'Уничтажаем все сылки на объект
End Sub
[/CODE]

Ответить

Номер ответа: 4
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
  Профиль | | #4 Добавлено: 28.09.04 20:11
che za hren`? ne raskrashivaet kod...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам