tecp
|
PORTO ALEGRE
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 05/06/2008 17:50 hs
E aí, pessoal do VBWEB? Desenvolvi um sistema em VB que envia e-mails para contatos registrados em um banco de access. O sistema cadastra contatos e empresas, etc. Ele funciona perfeitamente quando uso o Outlook Express como correio padrão, já quando é o Outlook do Office ele dá um erro no Send do botão de envio. As configurações da conta de email de ambos os Outlook's são as mesmas, mas o programa roda num e noutro não. Qual pode ser o meu problema? Desde já agradeço a todos! msn:pedrinho_muleque@hotmail.com |
|
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2008 19:31 hs
Rapaz... no outlook eu tinha problema que ele ficava informando que um sistema tava tentando enviar um e-mail pelo outlook, e mostrava um tempo la, pedindo pra confirmar a ação... isso era um problema.
+ enviava normal.... coloque a mensagem de erro que talvez a gente possa ajudar.
+ tem q ser pelo outlook? Eu usava + sempre tinha probelmas, inclusive com clientes que não tinha ou não gostava do outlook, então fiz um para mandar e-mail com anexos ou não sem usar o outlook, e resolvi os problemas.
tem varios exemplos pela net, alguns em www.vbmania.com.br
T+
|
|
|
|
tecp
|
PORTO ALEGRE
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/06/2008 14:46 hs
Donkey, valeu a força. Cara, o erro tá ém negrito logo abaixo: Private Sub cmdenviar_Click()
Dim SQL As String
Dim I As Integer
I = 0
If CmbEmpresa = "" Then
MsgBox " Selecione uma Empresa para prosseguir ! ", vbInformation
CmbEmpresa.SetFocus
Exit Sub
End If
If Trim(txt_assunto) = "" Then
MsgBox " Digite o Assunto da mensagem ! ", vbInformation
txt_assunto.SetFocus
Exit Sub
End If
If Trim(txt_mensagem) = "" Then
MsgBox " Digite o corpo de texto da Mensagem ! ", vbInformation
txt_mensagem.SetFocus
Exit Sub
End If
RS.Open "Select * From TblContato Where CodEmpresa =" & CodEmpresa & "", BD, 3, 3
MAPISession2.SignOn
MAPIMessages2.SessionID = MAPISession2.SessionID
RS.MoveMin
Do While Not RS.EOF
MAPIMessages2.Compose
MAPIMessages2.RecipAddress = RS("Email")
MAPIMessages2.MsgSubject = txt_assunto.Text
MAPIMessages2.MsgNoteText = txt_mensagem.Text
If txt_anexo <> Empty Then
'______Tipo de dados a ser anexado
MAPIMessages2.AttachmentType = mapData
'______Endereço do anexo
MAPIMessages2.AttachmentPathName = txt_anexo.Text
End If
MAPIMessages2.Send ' o erro vem para essa linha
I = I + 1
RS.MoveNext
Loop
MsgBox " Foram enviados: " & I & " e-mails ! ", vbInformation
End Sub Desde já agradeço. |
|
|
|
|
