Bernet @ Сегодня, 10:40
необходимо зарегистрироваться для просмотра ссылки
,
Ну ладно!
Выше указанным способом никак не получается.
Пробовал даже
необходимо зарегистрироваться для просмотра ссылкиSub Primer() ' Пример использования функции Send_Mail
txt = "Это письмо сформировано макросом" & vbNewLine & _
"без использования внешних программ и подключения дополнительных библиотек"
If Send_Mail("ПолучательЛогин1@mail.ru", "ПолучательЛогин2@mail.ru", "ПолучательЛогин3@mail.ru", "ОтправительЛогин@mail.ru", "проверка отправки почты", txt) Then
MsgBox "Письмо успешно отправлено", vbInformation
Else
MsgBox "Не удалось отправить письмо", vbExclamation
End If
End Sub
Private Sub SaveAccountData() ' запускать один раз - для записи в реестр Windows параметров почтового аккаунта
SaveSetting Application.Name, "mail", "smtpserver", "smtp.mail.ru" ' Ваш SMTPServer
SaveSetting Application.Name, "mail", "sendusername", "ОтправительЛогин@mail.ru" ' Ваша учетная запись
SaveSetting Application.Name, "mail", "sendpassword", "" ' Ваш пароль
End Sub
Function Send_Mail(ByVal MailTo As String, ByVal MailCopy As String, ByVal MailCCopy As String, ByVal MailFrom As String, _
ByVal MailSubject As String, ByVal MailText As String, _
Optional ByVal MailAttachment As String = "") As Boolean
' функция для отправки почты без использования внешних почтовых программ
' ----------------------------------------------------------------------
' в качестве параметров получает:
' MailTo - адрес получателя письма
' MailFrom - адрес отправителя письма
' MailSubject - тема письма
' MailText - текст письма
' MailAttachment - полный путь к файлу вложения (необязательный параметр)
' ----------------------------------------------------------------------
' возвращает TRUE, если отправка почты произошла успешно, и FALSE в обратном случае
Const cdoConfigURL = "http://schemas.microsoft.com/cdo/configuration/"
On Error Resume Next: Err.Clear
SMTPserver = GetSetting(Application.Name, "mail", "smtpserver", "")
sendusername = GetSetting(Application.Name, "mail", "sendusername", "")
sendpassword = GetSetting(Application.Name, "mail", "sendpassword", "")
If Len(SMTPserver) = 0 Or Len(sendusername) = 0 Or Len(sendpassword) = 0 Then Exit Function
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoConfigURL & "sendusing") = 2
.Item(cdoConfigURL & "smtpauthenticate") = 1
.Item(cdoConfigURL & "smtpserver") = SMTPserver
.Item(cdoConfigURL & "sendusername") = sendusername
.Item(cdoConfigURL & "sendpassword") = sendpassword
.Item(cdoConfigURL & "smtpserverport") = 465 'порт для SSL: 465
.Item(cdoConfigURL & "smtpusessl") = 1 'использовать аутентификацию: да
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.BodyPart.Charset = "koi8-r"
.From = MailFrom:
.CC = MailCopy
.BCC = MailCCopy
.To = MailTo
.Subject = MailSubject
.TextBody = MailText
If Len(MailAttachment) > 0 Then .AddAttachment MailAttachment
.Send
End With
Set cdoMessage = Nothing: Set cdoConfig = Nothing
' If Err.Number = -2147220973 Then MsgBox ("Отсутствует связь с интернетом")
' If Err.Number = -2147220975 Then MsgBox ("SMTP сервер ответил отказом")
' If Err.Number = 0 Then MsgBox ("Письмо отправлено")
Send_Mail = Err = 0
End Function
Тоже не получилось...
Поэтому уже по другому хотел спросить
Ну на пример таким путем:
ЗапуститьПриложение("mailto:ПолучательЛогин@mail.ru");
Открывается браузер и почта Mail.ru ... Если она авторизована то создается новое сообщение с указанным получателем.
Что нужно что бы письмо можно было отправить из 1С хотя бы так. Вернее не отправить а просто процедурой 1С открыть браузер и войти в свою почту.
Следующее:
1) Войти в свою почту вне зависимости от сервера mail.ru, rambler.ru и т.д. (что должно быть указано в самой процедуре) и вне зависимости от того она открыта или нет (что требует указания пароля в процедуре)
2) В самой процедуре 1С определить: Имя отправителя, тему сообщения, текст сообщения, и т.д. ...И САМОЕ ГЛАВНОЕ к новому сообщению прикрепить файл отправки (что конечно и тут требует указания адреса файла в самой процедуре)
Т.е. Все это программно и автоматический нажав на кнопку процедуры. Что бы в браузере автоматический проставлялись все указанные параметры отправки.
Вот как нужно, раз с первым более удобным способом не получается... Т.е. хотя бы так.
Иными словами это не отправка а автоматическое открытие почтового ящика с автоматизацией всех настроек перед отправкой.
Рассчитываю на вашу помощь... Могу сам помучиться но это дольше.
Так что, если не трудно малая процедурка
Буду признателен!
Gigi @ Сегодня, 12:02
необходимо зарегистрироваться для просмотра ссылки
,
Это просто HTML команды через 1С. Которые чуть подзабыл.
Нужно вспомнить. Но я просил сэкономить время.
Пожалуйста если не трудно!
Gigi @ Сегодня, 12:36
необходимо зарегистрироваться для просмотра ссылки
,
Просмотрел эту статью:
необходимо зарегистрироваться для просмотра ссылкиКороче
В теории все хорошо... но на деле ...
По моему это труднее чем модули состыковать на космической орбите.
Gigi @ Сегодня, 13:01
необходимо зарегистрироваться для просмотра ссылки
,
<a href="mailto:gigi_spoke@mail.ru" target="_blank" >Открыть почту</a>
<br>
<a href="mailto:gigi_spoke@mail.ru?subject=Тестовая отправка&body=Здравствуйте!">Открыть почту с настройкой отправки</a>
Вот каким макаром ... Ну из 1С будет через:
ЗапуститьПриложение("mailto:gigi_spoke@mail.ru?subject=Тестовая отправка&body=Здравствуйте!");
Просто во первых нужно что бы открывался не тот почтовый сервис который в браузере указан по умолчанию.. а программно любой указанный в коде ссылки.
Во вторых что бы не просто открывался, а автоматический авторизовывался по указанному в ссылке логину и паролю.
В третьих нужно автоматический прикрепить файл к сообщению, чего че то не нашел в параметрах спец ссылки "Mailto".
Короче ... видимо то что хотел ... ну никак
