Я новичок в VBA. Я хочу отправить электронное письмо, когда в ячейку K введено «Да».... Я зашел так далеко, но борюсь со следующим шагом.
Я бы хотел, чтобы тело электронной почты читалось, как показано ниже:
Привет, краткое изложение проектного предложения ниже.
Название проекта: *Информация из ячейки A*
Описание: *ячейка B*
Решение: *ячейка C*
Преимущества: *Ячейка D*
Стоимость: *Сотовый F*
Время: Сотовый *G*
Риск: ячейка *H*
Клиент(ы): Ячейка I
Марка (ы): Cell J
С уважением,
*Ячейка L*
Ниже приведен код, который я использовал до сих пор:
Private Sub Worksheet_Change (ByVal Target As Range)
Если Target.Cells.Count > 1, то выйдите из подпрограммы
Если (Не Пересекать(Цель, Диапазон("K:K")) Ничего) И (Цель.Значение = "Да") Тогда
Вызов Mail_small_Text_Outlook
End If
End Sub
Подпрограмма Mail_small_Text_Outlook()
Dim xOutApp как объект
Dim xOutMail как объект
Dim xMailBody как строка
Установите xOutApp = CreateObject("Outlook.Application")
Установите xOutMail = xOutApp.CreateItem(0)
xMailBody = "Привет!" & vbNewLine & vbNewLine & _
"Это строка 1" & vbNewLine & _
"Это линия 2"
On Error Resume Next
С xOutMail
.Кому = "адрес электронной почты"
.CC = ""
.BCC = ""
.Subject = "проверка значения ячейки"
.Body = xMailBody
.Отобразить или использовать .Отправить
Конец с
По ошибке GoTo 0
Установите xOutMail = Ничего
Установите xOutApp = Ничего
End Sub
Заранее благодарю всех, кто может мне помочь.
Я бы хотел, чтобы тело электронной почты читалось, как показано ниже:
Привет, краткое изложение проектного предложения ниже.
Название проекта: *Информация из ячейки A*
Описание: *ячейка B*
Решение: *ячейка C*
Преимущества: *Ячейка D*
Стоимость: *Сотовый F*
Время: Сотовый *G*
Риск: ячейка *H*
Клиент(ы): Ячейка I
Марка (ы): Cell J
С уважением,
*Ячейка L*
Ниже приведен код, который я использовал до сих пор:
Private Sub Worksheet_Change (ByVal Target As Range)
Если Target.Cells.Count > 1, то выйдите из подпрограммы
Если (Не Пересекать(Цель, Диапазон("K:K")) Ничего) И (Цель.Значение = "Да") Тогда
Вызов Mail_small_Text_Outlook
End If
End Sub
Подпрограмма Mail_small_Text_Outlook()
Dim xOutApp как объект
Dim xOutMail как объект
Dim xMailBody как строка
Установите xOutApp = CreateObject("Outlook.Application")
Установите xOutMail = xOutApp.CreateItem(0)
xMailBody = "Привет!" & vbNewLine & vbNewLine & _
"Это строка 1" & vbNewLine & _
"Это линия 2"
On Error Resume Next
С xOutMail
.Кому = "адрес электронной почты"
.CC = ""
.BCC = ""
.Subject = "проверка значения ячейки"
.Body = xMailBody
.Отобразить или использовать .Отправить
Конец с
По ошибке GoTo 0
Установите xOutMail = Ничего
Установите xOutApp = Ничего
End Sub
Заранее благодарю всех, кто может мне помочь.