Как составить и отослать письмо со своей программы?

Как составить и отослать е-мейл из программы? Нужно ли иметь какой-то ActiveX или что-то еще для этого? Где это взять?

Посмотри вот этот примерчик:

Private Sub Command1_Click()
Dim ret As Long
Dim sTo As String
Dim sCC As String
Dim sBCC As String
Dim sSubject As String
Dim sBody As String

sTo = 'Someone'
sCC = 'Someone else'
sBCC = 'Someone else again'
sSubject = 'Sending mail from VB with the default Mail program'
sBody = 'If this works, the To, CC, BCC, and Subject should also be filled in. ' _
& 'I dont know if its possible to automate file attachments in this way ' _
& ', or if this works with all Mail Clients, but it works OK with ' _
& 'Outlook Express, and should work with Mail Clients that accept the same ' _
& 'command line arguments.'

ret = Shell('Start.exe ' _
& 'mailto:' & '''' & sTo & '''' _
& '?Subject=' & '''' & sSubject & '''' _
& '&cc=' & '''' & sCC & '''' _
& '&bcc=' & '''' & sBCC & '''' _
& '&Body=' & '''' & sBody & '''' _
& '&File=' & '''' & 'c:autoexec.bat' & '''' _
, 0)
End Sub

Вот еще ссылка на работающий пример:
http://progs.biz/vb/api/lessons/005.shtml
В этом примере кликом можно запускать любую программу, в том числе и почтовую. Только в качестве параметра API-функции ShellExecute пишите что-то вроде mailto:vasja_p@mail.com.
Osco do Casco

0

а у меня когда я этот пример выполняю File Not Found пишет на Shell ...
Может это из-за НТ4 ?

0