Vba вставка подписи в сообщение outlook
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Не поможете разобраться в этом вопросе, Rioran?
[vba]
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Дата добавления - 23.06.2014 в 15:45
Bulava81, есть несколько вариантов:
1). У вас есть стандартная подпись Outlook (или Вы можете её сделать и использовать). Тогда это один код. Нашёл другой, который проще Вашего.
2). Есть вариант прописать подпись в макросе - одна строка, например, имя, вторая - телефон и т.д.
3). И, из разряда извращений - можно подтягивать тексты подписи из Excel файла. Например, если для разных отправителей нужна вариативность подписи.
Что Вам лучше подойдёт? Я бы рекомендовал 1-й вариант.
[offtop]Задавая вопрос, не обязательно обращаться к кому-то персонально - на этом форуме очень много компетентных специалистов [/offtop]
Bulava81, есть несколько вариантов:
1). У вас есть стандартная подпись Outlook (или Вы можете её сделать и использовать). Тогда это один код. Нашёл другой, который проще Вашего.
2). Есть вариант прописать подпись в макросе - одна строка, например, имя, вторая - телефон и т.д.
3). И, из разряда извращений - можно подтягивать тексты подписи из Excel файла. Например, если для разных отправителей нужна вариативность подписи.
Что Вам лучше подойдёт? Я бы рекомендовал 1-й вариант.
[offtop]Задавая вопрос, не обязательно обращаться к кому-то персонально - на этом форуме очень много компетентных специалистов [/offtop] Rioran
1). У вас есть стандартная подпись Outlook (или Вы можете её сделать и использовать). Тогда это один код. Нашёл другой, который проще Вашего.
2). Есть вариант прописать подпись в макросе - одна строка, например, имя, вторая - телефон и т.д.
3). И, из разряда извращений - можно подтягивать тексты подписи из Excel файла. Например, если для разных отправителей нужна вариативность подписи.
Что Вам лучше подойдёт? Я бы рекомендовал 1-й вариант.
[offtop]Задавая вопрос, не обязательно обращаться к кому-то персонально - на этом форуме очень много компетентных специалистов [/offtop] Автор - Rioran
Дата добавления - 23.06.2014 в 15:58
[vba] Да у меня есть стандартная подпись в OutLook и в принципе я уже даже в макросе указал путь к ней:)
[vba] [/vba] Автор - Bulava81
Дата добавления - 23.06.2014 в 16:31 Задавая вопрос, не обязательно обращаться к кому-то персонально - на этом форуме очень много компетентных специалистов :D Задавая вопрос, не обязательно обращаться к кому-то персонально - на этом форуме очень много компетентных специалистов :D Задавая вопрос, не обязательно обращаться к кому-то персонально - на этом форуме очень много компетентных специалистов :D
Господа, никого не хотел обидеть Не обессудьте! Автор - Bulava81
Дата добавления - 23.06.2014 в 16:32
Bulava81, попробуйте.
Возможно, в код достаточно добавить лишь две строки. При этом к тексту письма теперь можно внутри кавычек применять HTML-тэги.
Bulava81, попробуйте.
Возможно, в код достаточно добавить лишь две строки. При этом к тексту письма теперь можно внутри кавычек применять HTML-тэги.
Возможно, в код достаточно добавить лишь две строки. При этом к тексту письма теперь можно внутри кавычек применять HTML-тэги.
[/vba] Автор - RioranДата добавления - 23.06.2014 в 17:02 Я просто еще раз убеждаюсь, что RIORAN ГЕНИЙ. Так просто и в то же время рационально решить очень интересный и важный вопрос!
Спасибо Вам огромное Роман Я просто еще раз убеждаюсь, что RIORAN ГЕНИЙ. Так просто и в то же время рационально решить очень интересный и важный вопрос!
Спасибо Вам огромное Роман Bulava81
Коллеги, помогите разобраться с подписью в моём коде:
Есть готовый макрос для отправки письма, со следующей структурой:
1. Текст 1 (приветствие)
2. Вставленный в тело письма фрагмент excel таблицы
3. Текст 2 (к примеру, краткие пояснения к таблице)
А вот четвёртым пунктом - необходимо автоматически подгрузить подпись из Outlook. Причём подгружаться должна та подпись, которая настроена по умолчанию на данном компьютере/OutlookЕ (письмо может быть отправлено не только с моего адреса (компьютера), следовательно подпись должна меняться в зависимости от того, кто пользуется этим макросом)
Помогите, пожалуйста, понять, что нужно добавить в этот код, чтобы заработала подпись, предложенные выше варианты в данном случае увы не работают:
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
strbodyb = "ТЕКСТ 1"
Strbodya = "ТЕКСТ 2"
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Коллеги, помогите разобраться с подписью в моём коде:
Есть готовый макрос для отправки письма, со следующей структурой:
1. Текст 1 (приветствие)
2. Вставленный в тело письма фрагмент excel таблицы
3. Текст 2 (к примеру, краткие пояснения к таблице)
А вот четвёртым пунктом - необходимо автоматически подгрузить подпись из Outlook. Причём подгружаться должна та подпись, которая настроена по умолчанию на данном компьютере/OutlookЕ (письмо может быть отправлено не только с моего адреса (компьютера), следовательно подпись должна меняться в зависимости от того, кто пользуется этим макросом)
Помогите, пожалуйста, понять, что нужно добавить в этот код, чтобы заработала подпись, предложенные выше варианты в данном случае увы не работают:
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
strbodyb = "ТЕКСТ 1"
Strbodya = "ТЕКСТ 2"
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Есть готовый макрос для отправки письма, со следующей структурой:
1. Текст 1 (приветствие)
2. Вставленный в тело письма фрагмент excel таблицы
3. Текст 2 (к примеру, краткие пояснения к таблице)
А вот четвёртым пунктом - необходимо автоматически подгрузить подпись из Outlook. Причём подгружаться должна та подпись, которая настроена по умолчанию на данном компьютере/OutlookЕ (письмо может быть отправлено не только с моего адреса (компьютера), следовательно подпись должна меняться в зависимости от того, кто пользуется этим макросом)
Помогите, пожалуйста, понять, что нужно добавить в этот код, чтобы заработала подпись, предложенные выше варианты в данном случае увы не работают:
If rng Is Nothing Then
MsgBox "The selection is not a range or the sheet is protected. " & _
vbNewLine & "Please correct and try again.", vbOKOnly
Exit Sub
End If
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
strbodyb = "ТЕКСТ 1"
Strbodya = "ТЕКСТ 2"
End With
On Error GoTo 0
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
I am trying to integrate this code into the current format I currently have whereby I am able to automate emails within excel based on a set range of values. Any help in regard to where to add the 'signature' code within what I currently have would be much appreciated.
Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim I As Long
On Error Resume Next
'Please specify the due date range
xStrRang = "D2:D110"
Set xRgDate = Range(xStrRang)
'Please specify the recipients email address range
xStrRang = "C2:C110"
Set xRgSend = Range(xStrRang)
xStrRang = "A2:A110"
Set xRgName = Range(xStrRang)
'Specify the range with reminded content in your email
xStrRang = "Z2:Z110"
Set xRgText = Range(xStrRang)
xLastRow = xRgDate.Rows.Count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgName = xRgName(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For I = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(I - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 30 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(I - 1).Value
xMailSubject = " JBC Service Agreement Expiring On The " & xRgDateVal
vbCrLf
xMailBody = ""
xMailBody = xMailBody & "Dear " & xRgName.Offset(I - 1).Value & vbCrLf
xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Value & vbCrLf
xMailBody = xMailBody & ""
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.CC = "[email protected]"
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End Sub
Thanks to you, I can add signature now but then it removes spaces between paragraph of text. Please Can you Help me ?
По умолчанию в Outlook есть встроенная функция, позволяющая пользователям автоматически изменять подпись при отправке писем через разные учетные записи электронной почты. Но помимо этого, здесь я покажу вам метод автоматического изменения подписи на основе разных получателей в поле Кому в Outlook.
Автоматически изменять подпись на основе получателей с кодом VBA
Выполните следующие шаги, чтобы применить разные подписи к соответствующим получателям при отправке писем в Outlook.
1. Во-первых, вам нужно отключить функцию автоматической прикрепленной подписи в Outlook. Пожалуйста, нажмите Файл > Параметры для открытия Параметры Outlook окно.
Внимание: Вы также можете создать свои необходимые подписи в этом Подписи и канцелярские принадлежности диалоговое окно.
4. Нажмите OK кнопку, когда он возвращает Параметры Outlook окно.
5. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
6. в Microsoft Visual Basic для приложений окно, дважды щелкните ThisOutlookSession на левой панели, чтобы открыть окно кода, и копию ниже кода VBA в это окно. Смотрите скриншот:
Код VBA: автоматическое изменение подписи в зависимости от получателей в Outlook
Заметки:
- 1). В коде VBA замените « Адрес электронной почты 1/2/3/4 »С определенными адресами электронной почты получателей.
- 2). " aaa.htm , bbb.htm , а также ccc.htm "- указанная подпись, которую вы отправите соответствующим получателям.
- 3). В этом случае подпись « ааа "Будет отправлен на" Электронный адрес 1 », Подпись« BBB "Будет отправлен на" Электронный адрес 2 (Основной ключ) и Электронный адрес 3 , а также " Электронный адрес 4 "Получит электронное письмо с подписью" CCC ». Пожалуйста, измените их в соответствии с вашими потребностями.
- 4). Если в электронном письме несколько получателей, код работает только для первого. И все получатели получат электронное письмо с той же подписью, что и для этого получателя.
7. Затем нажмите Сервис > дело , чтобы перейти к Ссылки-проект диалоговое окно. В диалоговом окне проверьте как Библиотека объектов Microsoft Word и горизонтальное распределение Среда выполнения сценариев Microsoft параметры, а затем щелкните OK кнопку, см. снимок экрана:
8. нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.
Автоматически вставлять текущую дату в качестве подписи при отправке электронной почты в Outlook:
Если вы хотите вставить метку времени в качестве подписи в тело письма при создании / ответе / пересылке нового письма в Outlook, вы можете включить Добавить подпись даты при создании нового, ответа и пересылки электронной почты возможность Kutools для Outlook чтобы добиться этого. Смотрите скриншот:
Загрузите и попробуйте прямо сейчас (60-дневный бесплатный маршрут)
Есть готовый макрос для отправки письма.
Необходимо автоматически подгрузить подпись из Outlook. Причём подгружаться должна та подпись, которая настроена по умолчанию на данном компьютере/OutlookЕ (письмо может быть отправлено не только с моего адреса (компьютера), следовательно подпись должна меняться в зависимости от того, кто пользуется этим макросом)
Помогите, пожалуйста, понять, что нужно добавить в мой макрос, чтобы заработала подпись.
Нашла макрос с добавлением подписи в письмо, но не знаю как и что добавить из него в мой макрос, чтобы добавлялась подпись.
Мой Макрос для отправки письма:
[vba]
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
With OutMail
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Есть готовый макрос для отправки письма.
Необходимо автоматически подгрузить подпись из Outlook. Причём подгружаться должна та подпись, которая настроена по умолчанию на данном компьютере/OutlookЕ (письмо может быть отправлено не только с моего адреса (компьютера), следовательно подпись должна меняться в зависимости от того, кто пользуется этим макросом)
Помогите, пожалуйста, понять, что нужно добавить в мой макрос, чтобы заработала подпись.
Нашла макрос с добавлением подписи в письмо, но не знаю как и что добавить из него в мой макрос, чтобы добавлялась подпись.
Мой Макрос для отправки письма:
[vba]
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
With OutMail
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Есть готовый макрос для отправки письма.
Необходимо автоматически подгрузить подпись из Outlook. Причём подгружаться должна та подпись, которая настроена по умолчанию на данном компьютере/OutlookЕ (письмо может быть отправлено не только с моего адреса (компьютера), следовательно подпись должна меняться в зависимости от того, кто пользуется этим макросом)
Помогите, пожалуйста, понять, что нужно добавить в мой макрос, чтобы заработала подпись.
Нашла макрос с добавлением подписи в письмо, но не знаю как и что добавить из него в мой макрос, чтобы добавлялась подпись.
Мой Макрос для отправки письма:
[vba]
Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
On Error Resume Next
With OutMail
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Читайте также: