ENVIAR E-MAIL MARKETING
Galera, estou com um sistema para desenvolver de envio de e-mails marketing e estou com duvidas de como fazer para esses e-mails serem enviados sem passar pelo outlook e au mesmo tempo salvar em um banco de dados os emails enviados.
outra parte é fazer um editor de html para inclusões de layouts criados em html.
Alguem tem alguma ideia?
Desde já agradeço
outra parte é fazer um editor de html para inclusões de layouts criados em html.
Alguem tem alguma ideia?
Desde já agradeço
Ve se ajuda, para o começo do código:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=339332&varWorld=
Boa sorte!
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=339332&varWorld=
Boa sorte!
USE ISSO : On Error GoTo erro_envia
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) = [Ô]mail.ABOBORA.com.br[Ô] [ô][Ô]smtp.mail.yahoo.com.br[Ô] ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]eu@abobora.com.br[Ô] [ô] informe o usuario de autenticação
.Item(cdoSendPassword) = [Ô]mandioca[Ô] [ô]Informe a Senha aqui
.Update
End With
With Msg
Set .Configuration = Cof
.To = MyEmail_Cli [ô] destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.From = [Ô]mecanica@bol.com.br[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]Feliz Aniversário![Ô]
.HTMLBody = strHTML
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]contatos@flowsys.com.br[Ô] [ô]Informe o ou os destinatários da cópia oculta
[ô].AddAttachment “c: este1.txt;c: este2.txt†[ô] informe o ou os anexos
.Send
End With
E NESSA VARIÃVEL strHTML VC COLOCA O HTML E PRONTO FACIL E RÃPIDO.
QQ COISA DE UM ALÔ,.
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) = [Ô]mail.ABOBORA.com.br[Ô] [ô][Ô]smtp.mail.yahoo.com.br[Ô] ‘informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]eu@abobora.com.br[Ô] [ô] informe o usuario de autenticação
.Item(cdoSendPassword) = [Ô]mandioca[Ô] [ô]Informe a Senha aqui
.Update
End With
With Msg
Set .Configuration = Cof
.To = MyEmail_Cli [ô] destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.From = [Ô]mecanica@bol.com.br[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]Feliz Aniversário![Ô]
.HTMLBody = strHTML
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]contatos@flowsys.com.br[Ô] [ô]Informe o ou os destinatários da cópia oculta
[ô].AddAttachment “c: este1.txt;c: este2.txt†[ô] informe o ou os anexos
.Send
End With
E NESSA VARIÃVEL strHTML VC COLOCA O HTML E PRONTO FACIL E RÃPIDO.
QQ COISA DE UM ALÔ,.
Pascoal ,
Testei seu código, funcionou ok.
Mas como fazer para que as imagens contidas neste código sejam enviadas e possam ser abertas pelo usuário no momento da visualização do html?
Sei que o código html lê imagens armazenadas em um servidor, mas a necessidade é que o email inclua elas.
Obrigado,
Gardel
Testei seu código, funcionou ok.
Mas como fazer para que as imagens contidas neste código sejam enviadas e possam ser abertas pelo usuário no momento da visualização do html?
Sei que o código html lê imagens armazenadas em um servidor, mas a necessidade é que o email inclua elas.
Obrigado,
Gardel
Dê uma olhada nesse Projeto
Citação::
Dê uma olhada nesse Projeto
tentei usar este, configurei a conta mas da a seguinte mensagem
[Ô]Automation error[Ô]
Mafacility;
Funcionou bem e resolveu a questão. O trabalho foi enxugar o código, pois só precisava da rotina, sem o layout.
Nicollas;
Este erro está relacionado com algum dado que você não cadastrou correto em relação ao seu provedor. Não testei com Yahoo ou Google.
Obrigado,
Gardel
Funcionou bem e resolveu a questão. O trabalho foi enxugar o código, pois só precisava da rotina, sem o layout.
Nicollas;
Este erro está relacionado com algum dado que você não cadastrou correto em relação ao seu provedor. Não testei com Yahoo ou Google.
Obrigado,
Gardel
Tópico encerrado , respostas não são mais permitidas