Boa tarde, turma !

 

Utilizo o MAPI para fazer conexão com LOTUS NOTES para enviar e-mail.

 

Como faço para colocar um endereço de e-mail no campo C/C (com cópia) ?

 

O Código que estou utilizando é:

 

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = Text1.Text
MAPIMessages1.RecipDisplayName = Text1.Text

MAPIMessages1.AddressResolveUI = True
MAPIMessages1.MsgSubject = "Pedidos com Status: 1, 2, I, M e Normais em atraso. Posição atual -" & vData & "-"
MAPIMessages1.MsgNoteText = "Segue abaixo arquivo em formato Excel 2000. " & Chr(13) & "1-) Detach o arquivo em seu micro." & Chr(13) & _
                            "2-) Ao abrir a planilha clique em (** ATIVAR MACROS **)." & Chr(13) & _
                            "3-) Clique no BOTÃO (** FILTRAR FILIAL **)" & Chr(13) & _
                            "4-) Aparecerá um formulário. Digite a sua filial e clique em ( ** OK ** )." & Chr(13) & _
                            "Em caso de dúvidas favor contatar-me. Grato !"
MAPIMessages1.AttachmentPathName = "C:PrFollowupPedidos_Especiais.xls"
MAPIMessages1.Send False
MAPISession1.SignOff 

Pessoal, depois de muitas horas pesquisando dentro do Help MSDN encontrei a resposta:

 

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose

'1o. Recipiente para o destinatário ( To: para )
MAPIMessages1.RecipIndex = 1
MAPIMessages1.RecipType = 1
MAPIMessages1.RecipAddress = Text1.Text
MAPIMessages1.RecipDisplayName = Text1.Text

'2o. Recipiente para o destinatário ( Cc: Com cópia para )
MAPIMessages1.RecipIndex = 2
MAPIMessages1.RecipType = 2
MAPIMessages1.RecipDisplayName = vbweb@vbweb.com.br

'3o. Recipiente para o destinatário ( Bcc:Cópia Oculta )
'MAPIMessages1.RecipIndex = 3
'MAPIMessages1.RecipType = 3
'MAPIMessages1.RecipDisplayName = "nucleo@nucleo.com"

MAPIMessages1.AddressResolveUI = True
MAPIMessages1.MsgSubject = "Pedidos com Status: 1, 2, I, M e Normais em atraso. Posição atual -" & vData & "-"
MAPIMessages1.MsgNoteText = "Segue abaixo arquivo em formato Excel 2000. " & Chr(13) & "1-) Detach o arquivo em seu micro." & Chr(13) & _
                            "2-) Ao abrir a planilha clique em (** ATIVAR MACROS **)." & Chr(13) & _
                            "3-) Clique no BOTÃO (** FILTRAR FILIAL **)" & Chr(13) & _
                            "4-) Aparecerá um formulário. Digite a sua filial e clique em ( ** OK ** )." & Chr(13) & _
                            "Em caso de dúvidas favor contatar-me. Grato !"
MAPIMessages1.AttachmentPathName = "C:PrFollowupPedidos_Especiais.xls"
MAPIMessages1.Send False
MAPISession1.SignOff