USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  E-mail com MAPI com html ? Dá ???
JGD
não registrado
Postada em 21/06/2006 18:03 hs   
Pessoal,  usando o MAPI  dá pra enviar e-mail com imagem ou html ??
 
Agradeço
 
qq ajuda.
 
Abraço
 
JGD
     
dieimes_
CAXIAS DO SUL
RS - BRASIL
ENUNCIADA !
Postada em 21/06/2006 20:39 hs            
Sim... é possível. Inclusive vocÊ pode enviar qualquer anexo. O seguinte código é um exemplo simples de um email com anexo:
 
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
 

 
   
JGD
não registrado
Postada em 22/06/2006 09:46 hs   
 
Blz ! Cara... muito obrigado por responder... só + uma pergunta :
se
'anexa no final da mensagem
  MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText
 
qual seria o comando para colocar o anexo no início da msg. ?
 
Abraço
JGD
 
 

 
     
dieimes_
CAXIAS DO SUL
RS - BRASIL
Postada em 22/06/2006 14:01 hs            
Usa o mesmo comando, Na verdade, nessa linha que você informou estamos colocando o comprimento do bloco de texto da mensagem. Então você pode informar uma posição qualquer em números. Exemplo: 1, 2, 3, etc...
 
MAPIMessages1.AttachmentPosition = 1
     
JGD
não registrado
Postada em 23/06/2006 10:33 hs   
dieimes ... Blz !!   Valeu mais uma vez
 
Abraço
JGD
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página