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)
Pergunta
Guest --Cristiane --
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:
Agradeço a qlqr ajuda.
Editado por kuroiAdicionar tag CODE
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.