email com anexo (usando MAPI)


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: email com anexo (usando MAPI)

bertoldi

MORRO REDONDO
RS - BRASIL

ENUNCIADA !

Postada em 08/10/2005 10:48 hs

oi pessoal, preciso de uma aplicaçao que utiliza o envio de email. To usando o vb com MAPI (por ser mais facil), so que quando anexo um arquivo .txt ele chega no remetente com a extensao .dat. Queria saber porque isso? pois o formato original do arquivo e txt e deveria chegar txt.

at ++

fonte utilizado:

Private Sub Command1_Click()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.Compose
MAPIMessages1.RecipAddress = Text1.Text
MAPIMessages1.MsgSubject = Text2.Text
MAPIMessages1.MsgNoteText = Text3.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
MAPIMessages1.AttachmentName = "Anexos"
'define o caminho e nome do arquivo a anexar
MAPIMessages1.AttachmentPathName = Text4.Text

'envia o arquivo
MAPIMessages1.Send True

MAPISession1.SignOff

Marcio F. Bertoldi

mbertold@terra.com.br

Jonas

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 08/10/2005 12:13 hs

Cara, eu utilizo assim:

    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.Compose
    MAPIMessages1.RecipAddress = "jonas.spa@itelefonica.com.br" 'Text1.Text
    MAPIMessages1.MsgSubject = "teste" 'Text2.Text
    MAPIMessages1.MsgNoteText = "mensagem teste" 'Text3.Text

    MAPIMessages1.AttachmentIndex = "0" 'Indice
    MAPIMessages1.AttachmentPathName = "c:frunlog.txt" 'strNomeArq

    MAPIMessages1.Send
    MAPISession1.SignOff

Note que só informo o índice do anexo no e-mail sem dizer tipo e sem dar nome, e informo o caminho, e não dá problema.

Fiz o teste com o seu código e mudou para .dat

Pode ser por causa da linha attachmenttype.

Faça o teste da forma que passei e veja se resolve.

Té mais

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR