Nenhuma resposta neste tópico

[cris_gavioli]

Olá Pessoal!

Preciso de uma ajuda para saber como envia email cópia oculta através do VB com MAPI(Outlook)

Tenho o seguinte código que já esta enviando corretamente o email, mas não está como cópia oculta:

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = email
MAPIMessages1.MsgSubject = txtAss.Text
MAPIMessages1.MsgNoteText = TxtCorp.Text

'anexa no final da mensagem
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)
'define o tipo de dados do anexo
MAPIMessages1.AttachmentType = mapData
'da um nome ao anexo; 'define o caminho e nome do arquivo a anexar
MAPIMessages1.AttachmentName = Anexo
MAPIMessages1.AttachmentPathName = txtAnexo.Text

'envia o arquivo
MAPISession1.SignOff

On Error GoTo rotina
MAPIMessages1.Send True

rotina:
If Err.Number <> 0 Then ' User cancelled
MsgBox "Você cancelou o envio de e-mail!"
On Error GoTo 0
Exit Sub
End If

Barão = MsgBox("Seu email foi enviado!", 48)

Agradeço a qlqr ajuda.