Уважаемые профессионалы! Прошу помощи в решении вопроса:
при формировании параметров отправки письма из Excel через Outlook, в сообщение прикрепляются кнопки согласования;
однако, когда в копию письма приходится вставлять адреса получателей, то им тоже приходят кнопки согласования письма.
Каким образом в коде прописать, чтобы указанные кнопки отправлялись (ну или были бы активны) только основному получателю
при формировании параметров отправки письма из Excel через Outlook, в сообщение прикрепляются кнопки согласования;
однако, когда в копию письма приходится вставлять адреса получателей, то им тоже приходят кнопки согласования письма.
Каким образом в коде прописать, чтобы указанные кнопки отправлялись (ну или были бы активны) только основному получателю
| Код |
|---|
Function SendEmailUsingOutlook(ByVal Email$, ByVal MailText$, Optional ByVal Subject$, Optional ByVal rootFile$, _
Optional ByVal AttachFilename$, Optional ByVal FileName$, Optional ByVal sCbt$, Optional ByVal sCC$) As Boolean
' функция производит отправку письма с заданной темой и текстом на адрес Email
' с почтового ящика, настроенного в Outlook для отправки писем "по-умолчанию"
' Если задан параметр AttachFilename, к отправляемому письму прикрепляется файл (файлы)
Dim i As Long, arr, aX1, aX2
Dim strHTML As String
On Error Resume Next: Err.Clear
Dim OA As Object
Dim OMail As Object
Set OA = CreateObject("Outlook.Application")
If OA Is Nothing Then MsgBox "Не удалось запустить OUTLOOK для отправки почты", vbCritical: Exit Function
Set OMail = OA.CreateItem(0) 'создаем новое сообщение
With OMail
.To = Email$: .Subject = Subject$: .Body = MailText$
If sCC$ <> "" Then .CC = sCC$
.Importance = 2 ' 2 - важное, 1 - обычное, 0 - низкое
.Attachments.Add rootFile
' Добавляем кнопки .VotingOptions в тему и гиперссылку на файл в текст письма
.VotingOptions = sCbt$
strHTML = "ДЛЯ СОГЛАСОВАНИЯ ИЛИ ОТКЛОНЕНИЯ ДОКУМЕНТА" & "<br>" & "ВОСПОЛЬЗУЙТЕСЬ КНОПКАМИ В ЗАГОЛОВКЕ СООБЩЕНИЯ"
.HTMLBody = "<p>" & .Body & "</p>" & _
"<a href=""" & rootFile & """ >" & FileName & "</a>" & _
"<br><br>" & strHTML
For i = 1 To 100000: DoEvents: Next ' без паузы не отправляются письма без вложений
Err.Clear: .Send
SendEmailUsingOutlook = Err = 0
End With
Set OA = Nothing
End Function |
Изменено: - 07.02.2024 12:41:01
(Вставка кода из Excel)
