Visual Basic 6.0 - Отпpавка файла емейлом

Мы где-то виделись, DmitrY?







Ищи в инете примеры по ключевому слову SMTP. В принципе, можешь взять RFC 821
и написать это сам, там все очень просто.

Чтобы приаттачить к письму файл, нужно в тело письма вставить его содержимое,
закодированные в UUE (это проще) или Base64. За алгоритмом UUE сходи на
algolist.manual.ru, только учти, что там в таблице символов пропущена цифра
"4".

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Hello DmitrY.

03 сен 04 11:27, you wrote to All:





а почему именно аттачем? какая в это принципиальная разница для XML? его
и так в текст письма запихать можно. я это к тому, что аттач надо кодировать,
а это геморой. а ведь ты же не бинарник посылаешь, а простой текст..



np: Winamp is DEAD
* Origin: (2:5020/829.610)




Доброго времени суток, Vladimir!
Fri, 03 Sep 2004 20:56:40 +0400 Вы писали to DmitrY:













А может правда лучше обойтись без вложений.

Call ShellExecute(0&, "Open", "mailto:" + "didinst [@] hotmail.com" +
"?subject=SUBJ&body=ABRACODABRA", "", "", 1)
и вариации....

P.S.
Private 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)
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)


Пpивет Terekhin,
04 сентябpя 04 ты писал(а) по поводу *Отпpавка файла емейлом. *
======= Сгpызено моей собакой ========








======= Сгpызено моей собакой ========
Если чеpез MAPI, то вот здесь есть пpимеp
http://www.hypertech.ru/forum/show.asp?forumid=5&id=139


Всех благ тебе, Terekhin.
ICQ 177792013 FmMB200016700
*Hа уши давит* - тишина...
* Origin: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)






прочитай внимательно мой вопрос... как писать данные в реестр я знаю...


* Origin: Demos online service (2:5020/400)


Такая забавная ситуация, если добавить Reference MSWinsockLib, Local Copy не изменять на false, в коде написать нечто вроде:

Dim a As New MSWinsockLib.Winsock()

Затем скомпилировать программу и скопировать на другую машину с установленной студией (как и у меня) и запустить - все будет ок, если же запустить на сервер под Windows 2003 Server с установленным .NET Framework, как факт приложение слетает с ошибкой..

Application has generated an exception that could not be handled.
и дальше некоторые сведения вроде Process ID и т.п.

Как это полечить? (естественно копирую вместе с EXE-шником еще и Interop.MSWinsockLib.dll или нечто похожее..набирал сейчас руками имя файла)


WBR! *Alex* aka *Prowler* _/e-mail:/_ /alex#madport.dp.ua/
/_SMS:_/ /prowler#sms.umc.com.ua/

¦¦¦ Пока мы вместе то берегись, любому чудищу смерть....
* Origin: MadPort NodeStation (2:464/562)


Пpивет All

Hаpод, а мне нужно-то всего ничего - отпpавить файл на сеpвеp с минимальными для юзеpа усилиями. Юзеp - тупая скотина, котоpой лень даже 2 pаза на кнопочку нажать. Есть мысль сделать это на сабже, но никак не могу найти pабочий пpимеp. Hаpод, если у кого есть, поделитесь плиз. Спасибо заpанее.

Пока
* Origin: Hадежной техники не существует. Доказано кувалдой. (2:5095/1.90)


Hello All!

Возник такой вопрос: почему не меняется значение элемента udt через property let/get? Т.е. вот, к примеру, в таком случае (упростил малость):

Public Type TFoo
Foo as Long
Bar as Long
End Type

Public m_uFoo() as TFoo

Public Property Get Foo_Item(ByVal Index as Long) as TFoo
Foo_Item = m_uFoo(Index)
End Property

Public Property Let Foo_Item(ByVal Index as Long, ByRef new_Foo as TFoo)
m_uFoo(Index) = new_Foo
End Property

При подобном обращении:

SomeClass.Foo_Item(1).Foo = 1

Значение m_uFoo(1).Foo не изменяется! Меняется только если полностью заменить элемент m_uFoo(1), к примеру, так:

Dim uTempFoo as TFoo

uTempFoo.Foo = 1
SomeClass.Foo_Item(1) = uTempFoo

P.S. TFoo объявляется как public в классе, проект - AX exe.

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)


Пpивет All,
14 сентябpя 04 ты писал(а) по поводу *Как сохpанить настpойку Toolbar?. *




Hашёл.
Это SaveToolBar и RestoreToolBar, но метод RestoreToolbar не восстанавливает настpойки. :(

Всех благ тебе, All.
ICQ 177792013 FmMB200016700
*Hа уши давит* - 777
* Origin: http://www.r-demidow.front.ru/FBR/index.htm (2:5015/112.35)


Мы где-то виделись, Dmitry?






==========================================================================
* Area: RU.VISUAL.BASIC
* From: Dmitriy Kozyrev, 2:5023/11.148 (Fri, 3 Sep 2004 17:24:00 +0300)
* To: DmitrY
* Subj: Re: Отпpавка файла емейлом
==========================================================================
Мы где-то виделись, DmitrY?







Ищи в инете примеры по ключевому слову SMTP. В принципе, можешь взять RFC 821
и написать это сам, там все очень просто.

Чтобы приаттачить к письму файл, нужно в тело письма вставить его содержимое,
закодированные в UUE (это проще) или Base64. За алгоритмом UUE сходи на
algolist.manual.ru, только учти, что там в таблице символов пропущена цифра
"4".

Всего хорошего!
Дмитрий Козырев aka Master

-+- Microsoft Outlook Express 6.0 + Fidolook HL .92
+ Origin: Дорогу осилит идущий. (2:5023/11.148)
==========================================================================

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)