Консультация № 126333
07.03.2008, 12:29
0.00 руб.
0 1 1
Здравствуйте уважаемые эксперты !!!
Написал прогу на Визуал бейсике, и мне нужно создать окно которое будет отправлять вписанные в анкету данные мне на e-mail (Это нужно для регистрации).
Заранее спасибо !!!

Обсуждение

Неизвестный
08.03.2008, 12:41
общий
это ответ
Здравствуйте, Панюков Роман Владимирович!
Поместите приложенный код в Ваш проект.
Евгений.

Приложение:
В модуль:Const KLF_ACTIVATE = &H1 Const KLF_REORDER = &H8 Const KLF_SUBSTITUTE_OK = &H2 Const KLF_UNLOADPREVIOUS = &H4Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" _(ByVal pwszKLID As String, ByVal flags As Long) As LongPublic Sub sendMSG(sSubject$, sText$, sRecip$) Const SESSION_SIGNON = 1 Const MESSAGE_COMPOSE = 6 Const ATTACHTYPE_DATA = 0 Const RECIPTYPE_TO = 1 Const RECIPTYPE_CC = 2 Const MESSAGE_RESOLVENAME = 13 Const MESSAGE_SEND = 3 Const SESSION_SIGNOFF = 2On Error Resume NextDim MS As Object ‘MAPI SessionDim Msgs As ObjectSet MS = CreateObject("MSMAPI.mapiSession.1")Set Msgs = CreateObject("MSMAPI.mapiMessages.1")MS.signonWith Msgs .sessionid = MS.sessionid .compose .msgsubject = sSubject .msgnotetext = sText .RecipIndex = 0 ‘First recipient .RecipType = RECIPTYPE_TO .RecipDisplayName = sRecip .send ("1")End WithMS.Action = SESSION_SIGNOFFEnd Subв код формы:Private Sub Command1_Click() ‘ событие отправки сообщенияDim s$s = "Заглавие" & vbCrLfs = s + Text1 & vbCrLfs = s + Text2 & vbCrLf‘........собрать в тело сообщения тексты со всех полей вводаsendMSG "Тема", s, "Your_address@mail.ru"End Sub
Форма ответа