Может, подскажите насчёт ниже следуещего:
В интернете нарыл код отправки письма автору, но не отправляется.
Private Sub Command1_Click()
Dim soobw As Object, nasroyka As String
Set soobw = CreateObject("CDO.Message")
nasroyka = "http://schemas.microsoft.com/cdo/configu..."
On Error Resume Next
With soobw
.To = Text1.Text 'кому
.From = Text2.Text 'от кого?
.Subject = Text3.Text 'тема
.TextBody = Text4.Text 'текст сообщения
With .Configuration.Fields
.Item(nasroyka & "sendusing") = 2
.Item(nasroyka & "smtpserver") = "smtp.mail.ru"
.Item(nasroyka & "smtpauthenticate") = 1
.Item(nasroyka & "sendusername") = "
[email protected]" 'e-mail
.Item(nasroyka & "sendpassword") = "lalalala" 'пароль
.Item(nasroyka & "smtpserverport") = 25
.Item(nasroyka & "smtpusessl") = False
.Item(nasroyka & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With
Form3.Hide
Form4.Show
End Sub
и, собственно, вместо
[email protected] что нужно вводить-то? свой мэйл и пароль от мэйла?
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.