PREPARANDO E-MAIL
Olá a todos
Estou fazendo um programa em ADO que ao selecionar a região no combo e clicar no botão enviar é preparado um e-mail para cada pessoa daquela região.
O código é o seguinte:
------------------------------------------------------
General Declarations
Dim ConClientes As ADODB.Connection
Dim rsClientes As ADODB.Recordset
------------------------------------------------------
Private Sub Form_Load()
Dim strsql As String
Set ConClientes = New ADODB.Connection
Set rsClientes = New ADODB.Recordset
With ConClientes
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "\Cadastro.mdb"
.Open
End With
strsql = "SELECT Nome , Email FROM Clientes WHERE regiao='cmbregiao.text'"
rsClientes.Open strsql, ConClientes, adOpenForwardOnly, adLockReadOnly, adCmdText
End Sub
------------------------------------------------------
Private Sub Desconecta_BD()
rsClientes.Close
Set rsClientes = Nothing
ConClientes.Close
Set ConClientes = Nothing
End Sub
------------------------------------------------------
Private Sub Command1_Click()
Dim sucesso As Boolean
Dim total_emails As Integer
If rsClientes.recordcount > 0 Then
While Not rsClientes
Set EnviaEmail = CreateObject("SMTPsvg.Mailer")
EnviaEmail.RemoteHost = "smtp.meuservidor.com.br"
EnviaEmail.FromName = "blalbla"
EnviaEmail.FromAddress = "remetente@remetente.com"
EnviaEmail.AddRecipient rsClientes("nome"), rsClientes("email")
EnviaEmail.Subject = "assunto"
EnviaEmail.Bodytext = "Ola " & rsClientes("nome") & "," & Chr(13) & " meu texto"
sucesso = EnviaEmail.SendMail
rsClientes.movenext
total_emails = total_emails + 1
Wend
MsgBox "Numero Total de Emails enviados : " & total_emails
Else
MsgBox "Não há nenhum cliente para o critério informado !"
End If
Desconecta_BD
End Sub
O erro é que ao carregar a janela aparece a seguinte mensagem "NÃO FOI FORNECIDO UM VALOR PARA UM OU MAIS DOS PARÓ¡METROS EXIGIDOS" e a linha seguinte fica em amarelo.
rsClientes.Open strsql, ConClientes, adOpenForwardOnly, adLockReadOnly, adCmdText
Estou fazendo um programa em ADO que ao selecionar a região no combo e clicar no botão enviar é preparado um e-mail para cada pessoa daquela região.
O código é o seguinte:
------------------------------------------------------
General Declarations
Dim ConClientes As ADODB.Connection
Dim rsClientes As ADODB.Recordset
------------------------------------------------------
Private Sub Form_Load()
Dim strsql As String
Set ConClientes = New ADODB.Connection
Set rsClientes = New ADODB.Recordset
With ConClientes
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & App.Path & "\Cadastro.mdb"
.Open
End With
strsql = "SELECT Nome , Email FROM Clientes WHERE regiao='cmbregiao.text'"
rsClientes.Open strsql, ConClientes, adOpenForwardOnly, adLockReadOnly, adCmdText
End Sub
------------------------------------------------------
Private Sub Desconecta_BD()
rsClientes.Close
Set rsClientes = Nothing
ConClientes.Close
Set ConClientes = Nothing
End Sub
------------------------------------------------------
Private Sub Command1_Click()
Dim sucesso As Boolean
Dim total_emails As Integer
If rsClientes.recordcount > 0 Then
While Not rsClientes
Set EnviaEmail = CreateObject("SMTPsvg.Mailer")
EnviaEmail.RemoteHost = "smtp.meuservidor.com.br"
EnviaEmail.FromName = "blalbla"
EnviaEmail.FromAddress = "remetente@remetente.com"
EnviaEmail.AddRecipient rsClientes("nome"), rsClientes("email")
EnviaEmail.Subject = "assunto"
EnviaEmail.Bodytext = "Ola " & rsClientes("nome") & "," & Chr(13) & " meu texto"
sucesso = EnviaEmail.SendMail
rsClientes.movenext
total_emails = total_emails + 1
Wend
MsgBox "Numero Total de Emails enviados : " & total_emails
Else
MsgBox "Não há nenhum cliente para o critério informado !"
End If
Desconecta_BD
End Sub
O erro é que ao carregar a janela aparece a seguinte mensagem "NÃO FOI FORNECIDO UM VALOR PARA UM OU MAIS DOS PARÓ¡METROS EXIGIDOS" e a linha seguinte fica em amarelo.
rsClientes.Open strsql, ConClientes, adOpenForwardOnly, adLockReadOnly, adCmdText
Italo.
O erro não estaria no seu select ?
strsql = "SELECT Nome , Email FROM Clientes WHERE regiao='" & cmbregiao.text & "'"
Fica dificil de visualizar, mas deve ser assim:
strsql = "SELECT Nome , Email FROM Clientes WHERE regiao=aspassimple/aspas duplas & cmbregiao.text & aspasduplas/aspassimples/aspas duplas
O erro não estaria no seu select ?
strsql = "SELECT Nome , Email FROM Clientes WHERE regiao='" & cmbregiao.text & "'"
Fica dificil de visualizar, mas deve ser assim:
strsql = "SELECT Nome , Email FROM Clientes WHERE regiao=aspassimple/aspas duplas & cmbregiao.text & aspasduplas/aspassimples/aspas duplas
Tópico encerrado , respostas não são mais permitidas