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.
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
Quando você diz "update" eu fico pensando, isso é pra VB6?
sim sim...te enviei a mp, t+
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?
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