tutorial, enviaando e-mail

[branco]

Bom como tudo que evolui é pra melhor, a microsoft vez um "update" da dll cdonts, que facilitou muito a vida de quem precisar fazer um send mail. vou explicar aqui como funciona, muito muito simples, até que não entende de vb conseguirar usar.

Code Select Expand


 Dim Msg As CDO.Message
Dim Cof As CDO.Configuration
Dim Camp

Set Msg = New CDO.Message
Set Cof = New CDO.Configuration
Set Camp = Cof.Fields
 
 
With Camp
  .Item(cdoSendUsingMethod) = 2   ' cdoSendUsingPort
  .Item(cdoSMTPServer) = "mx2.mail.yahoo.com" ' servidor do smtp
  .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
  .Item(cdoSMTPAuthenticate) = 0
  .Update
 
End With

With Msg
  Set .Configuration = Cof
      .To = """user"" <praquem@servidor.com>" '
      .From = """user"" <quemtamandando@servidor.com"
      .Subject = "Teste de CDOSYS" ' assunto
      .textbody = "mensagem"
      .AddAttachment "c:\diretorio\arquivo.extensao" ' anexar arquivos
      .Send
End With

é só ler que ja era, nao tem erro,

até a proxima

[Wuefez]

Quando você diz "update" eu fico pensando, isso é pra VB6?

[branco]

sim sim...te enviei a mp, t+

[lcs]

ola trazendo o topico dos mortos mais tenho umas duvidas sobre esse codigo de vb, pois estou aprendendo vb agora.

Dim Camp - que tipo de dados essa variavel usa?

Set Msg - o que significa o comando set?

fallow e se puderem me esclarecer essas duvidas agradeço..



End With - para se terminar uma rotina se usa end sub correto, o que significa esse end with?

[branco]

dim camp está apenas declarando camp como uma variavel...
set msg está criando o objeto msg

with significa vc digitar apenas . e a propriedade de um comando, por exemplo

with lcs
.nome = "bla"
.idade = 15
.aprendizado = "iniciando"
end with

, espero que tenha compreendido, até mais