Bruno Grange
Bruno Grange
"Imagination is more important than knowledge." (Einstein)
Content
Social
| How to send e-mail using MAIL.BOX |
 |
 |
| Written by Bruno Grange |
| Tuesday, 02 September 2008 18:15 |
|
How to send e-mail using MAIL.BOX One way: 'Comandos necessários para acessar e enviar email usando o MAIL BOX Dim mdb As New NotesDatabase("","mail.box") If Not mdb.isopen Then Msgbox "A base de Mail.box não foi encontrada!" Exit Function End If Set mdoc = New NotesDocument(mdb) 'Setando campos SendTo e CopyTo Set item1 = New NotesItem (mdoc, "SendTo", "") Set item1_1 = New NotesItem (mdoc, "CopyTo", "") 'Incluindo o valor do campo RECIPIENTS no documento PRINCIPAL Set item_Rec = New NotesItem (mdoc, "Recipients", "") Call item_Rec.appendtotextlist(item1.values) Forall z In item1_1.values Call item_Rec.appendtotextlist( z ) End Forall mdoc.PostedDate = Now mdoc.Form = "Memo" mdoc.From = "Sistema de Controle de Documentos Normativos" mdoc.Subject = plain2 Call mdoc.AppendItemValue( "Recipients", item_Rec.values ) Call mdoc.Save (True, True) Another way: Set docMemo = db.Createdocument docMemo.Form = "Memo" docMemo.Principal = "Projexx" docMemo.Subject = strProjeto + " - " + docNoti.Subject( 0 ) Set body = docMemo.Createrichtextitem( "Body" ) Call body.appendtext( docNoti.Message( 0 ) ) Call body.AddNewLine( 2 ) On Error Resume Next Call docMemo.Send( False, Destinatario ) Related Articles: |
