SISTEMA E EMAIL INTERNO COM ENVIO DE ANEXO

DNEVONY 26/06/2010 00:31:59
#345847
Boa galera estou necessitando criar um sistema de email interno no vb com envio de anexos, alguém teria algum esboço ou sabe de algum fonte que eu possa me basear para iniciar o desenvolvimento?
Quero dizer o email seria tipo somente na rede interna da empresa, e os emails não seriam enviados pela internet e sim salvos em banco de dados
TECLA 26/06/2010 17:28:51
#345878
Segue um exemplo utilizando o CDONTS.
Antes de testar, adicione uma referência ao cdosys.dll (Project > References > Microsoft CDO for Windows)
Private Sub Eml()
        Set objEmail = CreateObject([Ô]CDO.Message[Ô])
        objEmail.From = [Ô]Test[Ô]
        
        objEmail.To = abc@gmail.com        
        objEmail.Cc = abc@hotmail.com         
        objEmail.bcc = abc@yahoo.com        
        objEmail.Subject = [Ô]Test Message[Ô]
        
        objEmail.Textbody = [Ô]Hi,   This is a test mail[Ô]
        
        [ô]objEmail.AddAttachment [Ô]C:\\Scripts\\Output.txt[Ô]
        
        objEmail.configuration.Fields.Item _
        ([Ô]http://schemas.microsoft.com/cdo/configuration/Sendusing[Ô]) = 2
        objEmail.configuration.Fields.Item _
        ([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserver[Ô]) = IP or hostname of your email server
        objEmail.configuration.Fields.Item _
        ([Ô]http://schemas.microsoft.com/cdo/configuration/smtpserverport[Ô]) = 25
        objEmail.configuration.Fields.Update
        objEmail.Send
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar