Как отослать e-mail из 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???»

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

Оцени полезность:

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