Отправка электронной почты

[Gatet]

Скажите, как из VB отправлять почту (с темой и содержанием)?

[RayShade]

Используя CDO это будет примерно так:



Dim msg As CDO.Message

With msg

.To = "pupkin@vasya.net"

.Subject = "Hello!"

.TextBody = "Hello, Pupkin! It's my test mail!"

.AddAttachment "c:\mypic.jpg"

.send

End With

[Gatet]

спасибо! А что такое CDO?

[Powersoft]

можно использовать этот модуль: ftp://powersoftnet.com/sendemail.zip

[goro]

Используя CDO это будет примерно так:

Dim msg As CDO.Message
With msg
.To = "pupkin@vasya.net"
.Subject = "Hello!"
.TextBody = "Hello, Pupkin! It's my test mail!"
.AddAttachment "c:\mypic.jpg"
.send
End With

А у меня почему - то не работает. Ошибку н91 на третей строчке выдает.

[jetcom]

2Powersoft:
На самом деле твой модуль лежит здесь:
ftp://powersoftnet.com/sources/vb/sendemail.zip
Первая ссылка мертвая.

[RayShade]

2 goro

Ну примени голову то!

не хватает очевидно set msg = new cdo.message



2 Gatet

Collaboration Data Objects

Описание в MSDN. Где взять не в курсе. Видимо ставятся вместе с Office XP.

[Powersoft]

нет, с Office XP не ставится MSDN. я не буду давать ссылки, где можно скачать, т.к. это нелегально. если надо, то лично: support@powersoftnet.com

[RayShade]

2 Powersoft

Видимо имеет место непонимание - я имел в виду что ставиться CDO а не MSDN



И потом есть официальная страница msdn.microsoft.com - ничего нелегального в том чтобы на нее сходить нет.



А насчет установки Office XP на комп с инета - это занятие для избранных Рекомендую все таки воспользоваться CD

[Powersoft]

я вас понял

[goro]

2 goro
Ну примени голову то!
не хватает очевидно set msg = new cdo.message

Блин! просто с дня рожденья друга только пришел и сразу за бейсик. Голова ваще не работала! Кстати никому не советую.

[Gatet]

Спасибо!

[al addin]

А с ошибочкой типа "Недопустимое значение конфигурации SendUsing"
никто из вас не сталкивался?

[alibek]

Код: Выделить всё

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL As Long = 1&
...
msg="mailto:bill.gates@microsoft.com?subject=Windows%20TechSupport&body=HELP!!!%0D%0AI%20have%20troubles%20with%20Windows!"
ShellExecute hWnd, vbNullString, msg, vbNullString, vbNullString, SW_SHOWNORMAL