Консультация № 64522
28.11.2006, 00:51
0.00 руб.
0 1 1
Здравствуйте.
Подскажите пожалуйста простенький пример
отправки e-mail на smtp.mail.ru. И если можно с комментариями.
Спасибо.

Обсуждение

Неизвестный
28.11.2006, 18:40
общий
это ответ
Здравствуйте, Himik!

Этот коротенький пример демонстрирует возможность отправки анкетных данных на вшитый в код E-mail. Можно дать возможность юзверю самому вбить адрес, слегка модифицировав программу. Если не разберетесь в примере, могу выслать на ваш E-mail готовый проект.

! В References проекта поставьте птичку напротив Microsoft Outlook Object Library, OutlookExpressCtl Type Library

Приложение:
Private Sub Command1_Click()Text1.Text = txtName.Text & vbCrLf & txtFamily.Text & vbCrLf _& txtSex.Text & vbCrLf & txtDateOfBird.Text & vbCrLf _& txtPlaceOfBird.Text & vbCrLf & txtPlaceOfWork.Text & vbCrLf _& txtAdress.Text & vbCrLf & txtWorkPhone.Text & vbCrLf & _txtHomePhone.Text & vbCrLf & txtLogin.Text & vbCrLf & txtPassword.TextDim Mes As ObjectSet Mes = CreateObject("Outlook.Application")With outlook.CreateItem(olMailItem).Recipients.Add Text2.Text.Subject = "Анкета".Body = Text1.Text.SendEnd WithEnd SubPrivate Sub Command2_Click()txtName.Text = ""txtFamily.Text = ""txtSex.Text = ""txtDateOfBird.Text = ""txtPlaceOfBird.Text = ""txtPlaceOfWork.Text = ""txtAdress.Text = ""txtWorkPhone.Text = ""txtHomePhone.Text = ""txtLogin.Text = ""txtPassword.Text = ""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub UpDown1_Change()If UpDown1.Value = 0 ThentxtSex.Text = "муж"ElsetxtSex.Text = "жен"End IfEnd Sub
Форма ответа