Создание слияния электронной почты excel с IBM Notes
Доброе утро,
У меня есть код, который создаст почтовый ящик электронной почты в IBM Notes на основе столбцов в excel. Только проблемы, с которыми я сталкиваюсь, я хотел бы создать отдельные письма для каждого адреса электронной почты в столбце A. Я также не могу понять, как связать его с конкретным файлом для каждого получателя, расположение файлов будет в столбце C. Может кто-нибудь мне помочь?
Sub SendQuoteToEmail() Dim NSession As Object Dim NDatabase As Object Dim NUIWorkSpace As Object Dim NDoc As Object Dim NUIdoc As Object Dim WordApp As Object Dim subject As String Dim EmailAddress As Variant subject = Worksheets("Sheet1").Range("B2") Debug.Print subject Set NSession = CreateObject("Notes.NotesSession") Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace") Set NDatabase = NSession.GetDatabase("", "") If Not NDatabase.IsOpen Then NDatabase.OPENMAIL For all Emai-Addresses EmailAddress = Worksheets("Sheet1").Application.Transpose(Range("A2").Resize(Range("A" & Rows.Count).End(xlUp).Row).Value) Set NDoc = NDatabase.CreateDocument With NDoc .Form = "Memo" ' or .ReplaceItemValue("Form", "Memo") .SendTo = EmailAddress .subject = subject End With Set rtitem = NDoc.CreateRichTextItem("Body") Call rt.AppendText(Worksheets("sheet1").Range("d2") & vbLf & vbLf) Call rt.EmbedObject(1454, "", "c:filepath.doc") Call NDoc.Save(True, False) Next ' email-address Set NDoc = NDatabase.CreateDocument With NDoc .SendTo = EmailAddress '.CopyTo = "" .subject = subject .body = Worksheets("sheet1").Range("d2") & vbLf & vbLf .Save True, False End With Set NUIdoc = NUIWorkSpace.EDITDocument(True, NDoc) With NUIdoc Set WordApp = Nothing End With Set NSession = Nothing End Sub - VBA - Ошибка выполнения 438
- Как я могу сделать отображение слияния разных или удалить ТЕКСТ в зависимости от объединенных данных?
- Предотвращение появления текста ошибки в слиянии при отсутствии изображения для отображения
- Сложный псевдо-почтовый слияние
- Ошибка выполнения 5631
- Подавление пустых строк в слиянии слов «If..then ... else»
- MS Word 2016: проблема форматирования валюты поля Mailmerge
- excel VBA для автоматического выбора Да при появлении запроса во время слияния
- Выбор только одной строки из листа excel (как часть слияния)
- Как установить адрес электронной почты и тему в MailMerge из VBA
- Несколько записей на странице каталога в слиянии
- Как получить символы из Excel в Word с помощью слияния
- Таблица Выберите ошибку при слиянии с Excel в Word
Чтобы прикрепить файлы, посмотрите на метод EmbedObject класса NotesRichTextItem.
Также есть несколько других проблем с вашим кодом. Вы не должны использовать расширенную нотацию при назначении значений полям, используйте метод ReplaceItemValue класса NotesDocument для хранения значений. Поле Body – это поле с расширенным текстом, и вы должны использовать класс NotesRichTextItem для всего, что связано с этим полем, поэтому используйте методы Appendtext и AddNewLine для записи содержимого в поле. Это также позволит вам использовать метод EmbeddObject, о котором я упоминал выше, для прикрепления файлов.
Возможно, вы найдете полезные подсказки в классе почтовых уведомлений. Я только что опубликовал обновленную версию на http://blog.texasswede.com/updated-mailnotification-class-now-with-html-email-support-and-web-links/
Надеюсь, поможет!
Это кажется более важной частью кода для создания писем в Notes: отправьте электронное письмо на определенные контакты Lotus Notes с помощью VBA
Вы хотите, чтобы ваши письма открывались на экране, прежде чем отправлять их, или их можно отправить невидимыми?
UPDATE: предлагаемый код
subject = Worksheets("Sheet1").Range("B2") Debug.Print subject Set NSession = CreateObject("Notes.NotesSession") Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace") Set NDatabase = NSession.GetDatabase("", "") If Not NDatabase.IsOpen Then NDatabase.OPENMAIL For all email-addresses EmailAddress = Worksheets("Sheet1").Application.Transpose(Range("A2").Resize(Range("A" & Rows.Count).End(xlUp).Row).Value) Set NDoc = NDatabase.CreateDocument With NDoc .Form= "Memo" ' or .ReplaceItemValue("Form", "Memo") .SendTo = EmailAddress .subject = subject End With set rtitem= NDoc.CreateRichTextItem("Body") Call rt.AppendText(Worksheets("sheet1").Range("d2") & vbLf & vbLf) Call rt.EmbedObject(1454, "", "c:filepath.doc") Call NDoc.Save(True, False) Next ' email-address
Для обработки: Looping, имена файлов, адреса …