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.
Email Cópia Oculta
Started By cris_gavioli, 30/11/2007, 15:49
Nenhuma resposta neste tópico
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)