Как отослать e-mail из VB??? - VB

Формулировка задачи:

Mne nuzno otsilat` fail iz VB. Ya videl primer s ispol`zovaniem Microsoft Outlook, no mne nuzno podrugomu, tk tak ne vsegda rabotaet. Mo zno konechno i ne s otpravbkoi e-mail'a a s sohraneniem faila na server, chto est` eshe luche, no opiat` ze, ya ne znayu kak sohranit` na server. Esli kto znaet, PLEASE napisite!!! S uvazeniem, Web-gear

Код к задаче: «Как отослать e-mail из VB??? - VB»

textual
Option Explicit
 
Private Sub Form_Load()
Dim mailObje As Object
 
Set mailObje = CreateObject('Outlook.Application')
With mailObje.CreateItem(olMailItem)
    .Recipients.Add Trim('aaf@mailru.com_noSpam')
    .Subject = 'тема'
    .Attachments.Add 'C:grafik.xls'
    .Send
End With
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.375 из 5


СДЕЛАЙТЕ РЕПОСТ