Create는 IBM Notes를 사용하여 편지 병합을 수행합니다.

Question

안녕하십니까,

excel의 열을 기반으로 IBM Notes에서 전자 메일 우편함을 만들 수있는 몇 가지 코드가 있습니다. 내가 만나는 문제는 열 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 

Answer 1

파일을 첨부하려면 NotesRichTextItem 클래스의 EmbedObject 메소드를 살펴보십시오.

코드에 몇 가지 다른 문제가 있습니다. 값을 필드에 할당 할 때 확장 표기법을 사용하면 안되며, NotesDocument 클래스의 ReplaceItemValue 메소드를 사용하여 값을 저장하십시오. 본문 필드는 서식있는 텍스트 필드이므로 해당 필드와 관련된 모든 것에 대해 NotesRichTextItem 클래스를 사용해야하므로 Appendtext 및 AddNewLine 메서드를 사용하여 내용을 필드에 씁니다. 또한 위에서 언급 한 EmbeddObject 메서드를 사용하여 파일을 첨부 할 수 있습니다.

아마도 내 메일 알림 클래스에서 유용한 힌트를 찾을 수 있습니다. 난 그냥 http://blog.texasswede.com/updated-mailnotification-class-now-with-html-email-support-and-web-links/

희망은 도움에 업데이트 된 버전을 게시!

Answer 2

이 노트에서 메일을 작성하기위한 코드의 관련성 부분을 보인다 send email to a specific Lotus Notes contacts using 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 

가 처리 할 코드 : 반복, 파일 이름, 주소 ...