Use VB6 para escrever programas para enviar e-mails. Há uma variedade de componentes de e-mail para escolher, como MAPIMessages, CDONTS (NTSCollaborationDataObjects) incluídos no IIS4.0 e software de e-mail desenvolvido por muitos fabricantes terceiros. Este artigo apresenta como usar CDONTS para desenvolver um programa de email em VB.
1. Confirme se o servidor SMTP está instalado
Primeiro, você deve confirmar se o servidor SMTP está instalado no servidor IIS. Esta é a opção instalada por padrão ao instalar o OptionPack. Se o servidor SMTP tiver sido instalado, haverá um arquivo chamado cdonts.dll no diretório System32.
2. O programa de envio de e-mail mais simples
A seguir está o programa de envio de e-mail mais simples, que envia um e-mail com o título "Título" e o conteúdo "Olá" de [email protected] para [email protected]:
PRivateSubcmdSendMail_Click()
DimobjmailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
ObjMail.Send"[email protected]","[email protected]","Título","Olá"
SetobjMail = nada
Fim Sub
3. Envie anexos de e-mail
Se houver um arquivo anexado que precise ser enviado junto com o e-mail, você pode usar o método AttachFile do CDONTS:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
ComObjMail
.From="[email protected]"
.To="[email protected]"
.Subject="Título"
.Body = "Olá"
.AttachFile"c:/document/sample.doc","sample.doc"
.Enviar
Terminar com
SetobjMail = nada
Fim Sub
4. Propriedades e métodos comumente usados de componentes CDONTS
As propriedades e métodos comumente usados dos componentes CDONTS estão listados abaixo:
propriedade:
Versão: Retorna o número da versão do componente CDONTS
MailFormat: formato de e-mail, tipo de texto 1-normal;
Cc: Defina um ou mais endereços de e-mail para referência
De: o endereço do remetente do e-mail
Para: O endereço do destinatário do e-mail
Assunto: título
Corpo: conteúdo
BodyFormat: formato do conteúdo, 1-texto normal;
método:
AttachFile: anexar um arquivo
AttachURL: anexar um endereço
Enviar: enviar e-mail
5.Enviar e-mail em formato de hipertexto
Você deve ter visto muitos e-mails em formato de hipertexto, que pode conter não apenas imagens, sons, mas também incorporar animações. Se você enviar esse e-mail para seu amigo, isso certamente lhe trará uma surpresa inesperada, porque isso é algo que os programas comuns de envio de e-mail não podem fazer. O seguinte usa o componente CDONTS para enviar um e-mail em formato HTML, que contém uma imagem chamada sample.gif O programa é o seguinte:
PrivateSubcmdSendMail_Click()
DimobjMailasObject
SetobjMail=CreateObject("CDFONTS.DLL")
DimstrHTMLasString
StrHTML="〈html〉〈cabeça〉"
StrHTML=StrHTML "〈title〉Email〈/title〉〈/head〉 usando formato de hipertexto
StrHTML=StrHTML "〈body〉〈p〉〈strong〉Exemplo de envio de e-mail usando CDONTS"
StrHTML=StrHTML "〈imgsrc=sample.gif〉〈/strong〉〈/p〉"
StrHTML=StrHTML "〈p〉O exemplo acima possui imagem incorporada sample.gif〈/p〉"
StrHTML=StrHTML "〈/corpo〉〈/html〉"
ComObjMail
.From="[email protected]"
.To="[email protected]"
.Subject="Título"
.Body=strHTML
.AttachURL"c:/mydata/sample.gif","sample.gif"
.BodyFormat=0
.EmailFormat=0
.Enviar
Terminar com
SetobjMail = nada
Fim Sub
Neste ponto, acredito que você deve ter descoberto uma falha no processamento de e-mail SMTP. O servidor SMTP recebe sua mensagem de saída, mas não verifica o nome e endereço do remetente. Isso é determinado pelo mecanismo de envio assíncrono do SMTP, mas alguém pode usá-lo com segundas intenções para fingir ser outra pessoa e enviar e-mails! Este artigo recomenda fortemente que você não tente fazer isso facilmente. Assim que seu ISP souber de seu comportamento, sua conta provavelmente será excluída imediatamente. ->