CODIGO ONDE O CLIENTE ME ENVIA UM EMAIL
ola estou precisando de uma rotina em vb para que o programa de um cliente possa mandar um email para mim
por exemplo. supomos que um cliente tem um programa meu instalado no seu pc e o mesmo poderá enviar um email para o meu email automaticamente.
vlw
por exemplo. supomos que um cliente tem um programa meu instalado no seu pc e o mesmo poderá enviar um email para o meu email automaticamente.
vlw
Utilize MAPI
Precisa referenciar
Se você quiser da uma olhada aqui no site que tem uma dll que não passa pelo outlook
Precisa referenciar
Dim objMail As Outlook.MailItem
Dim OLApp As New Outlook.Application
Set objMail = OLApp.CreateItem(olMailItem)
objMail.Display
objMail.To = [Ô]email@provedor.com[Ô]
objMail.Send
Se você quiser da uma olhada aqui no site que tem uma dll que não passa pelo outlook
Colega,leia atentamente esta thread...
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=387775
concerteza irá lhe ajudar,a minha DLL..
abraços!
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=387775
concerteza irá lhe ajudar,a minha DLL..
abraços!
ola pessoal obg por responderem, mas vou explicar melhor ..
bom eu to desenvolvendo um programa onde tera um botao de registro, quando o cliente clicar nesse botao, o programa ira pegar o numero serial do hd e enviará para o meu email automaticamente junto com os dados do mesmo .
entao eu acho que nao seria o caso de usar senha pois nao precisaria, pois o usuario devera esta na internet ok
obrigado a todos !
bom eu to desenvolvendo um programa onde tera um botao de registro, quando o cliente clicar nesse botao, o programa ira pegar o numero serial do hd e enviará para o meu email automaticamente junto com os dados do mesmo .
entao eu acho que nao seria o caso de usar senha pois nao precisaria, pois o usuario devera esta na internet ok
obrigado a todos !
Então cara,voce precisa de uma maneira ou outra logar no servidor de email certo?
Então,voce usa um banco de dados,ou gravando no registro do windows as configuraçoes do seu email,quando o cliente,clicar no botão,ele roda a rotina de carregar o numero serial do HDD,carregar as suas configuraçoes de email que está numa tabela,ou no Winregistry,rodar a dll que eu postei no topico que eu citei no post anterior,e enviar um email à voce com um assunto,e o numero serial do cliente que ele carregou certo?!
Então,voce usa um banco de dados,ou gravando no registro do windows as configuraçoes do seu email,quando o cliente,clicar no botão,ele roda a rotina de carregar o numero serial do HDD,carregar as suas configuraçoes de email que está numa tabela,ou no Winregistry,rodar a dll que eu postei no topico que eu citei no post anterior,e enviar um email à voce com um assunto,e o numero serial do cliente que ele carregou certo?!
Amigo, bom dia!
Segue um código para envio de email sem o uso do outlook, irá faltar somente a rotina para pegar o número do HD
Private Sub mensagem()
Dim texto As String
[ô] mensagem que será enviada
texto = [Ô]Prezado Usuário;[Ô] & Me.txtnome & vbCrLf & vbCrLf & [Ô]. Conforme sua solicitação, segue o seu login e senha para acesso ao programa Asgard[Ô] & vbCrLf & vbCrLf & [Ô] Login: [Ô] & Me.txtlogin & vbCrLf & vbCrLf & [Ô] Senha: [Ô] & Me.txtsenha & vbCrLf & vbCrLf & vbCrLf & [Ô]. Caso haja dúvidas, pedimos que entre em contato com depto. Adminstrativo. [Ô] & vbCrLf & vbCrLf & vbCrLf & vbCrLf & [Ô] Atenciosamente [Ô] & vbCrLf & vbCrLf & [Ô]Suporte Asgard[Ô]
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
[ô]a conexão é automatica (remetente)
.item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô] [ô]informe o servidor smtp aqui
.item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.item(cdoSMTPAuthenticate) = 1
.item(cdoSendUserName) = [Ô]xxxxxxxxxxxxxxxxxx[Ô] [ô]informe o usuario de autenticação; endereço de email
.item(cdoSendPassword) = [Ô]xxxxxxxxx[Ô] [ô]Informe a Senha aqui
.Update
End With
With msg
Set .Configuration = Cof
[ô]
.To = Me.txtemail [ô] destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.from = [Ô]gerenciamento.asgard@gmail.com[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]Login e senha para acesso ao programa Asgard[Ô] [ô]mensagem inicial
.HTMLBody = strhtml
.HTMLBody = texto [ô] texto com as informações que vc quer enviar
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]gerenciamento.asgard@gmail.com[Ô] [ô]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
End Sub
******************************************** /////// ******************************************************************************************
Entretanto, caso o PC não esteja conectado a net. terá uma mensagem de erro.
Segue o código para vericar se tem acesso a internet e não gerar mensagem de erro.
Private Declare Function InternetGetConnectedState Lib [Ô]wininet[Ô] (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
Private Const CONNECT_LAN As Long = &H2
Private Const CONNECT_MODEM As Long = &H1
Private Const CONNECT_PROXY As Long = &H4
Private Const CONNECT_RAS As Long = &H10
Private Const CONNECT_OFFLINE As Long = &H20
Private Const CONNECT_CONFIGURED As Long = &H40
Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean
Dim dwflags As Long
Dim WebTest As Boolean
ConnType = [Ô][Ô]
WebTest = InternetGetConnectedState(dwflags, 0&)
Select Case WebTest
Case dwflags And CONNECT_LAN: ConnType = [Ô]LAN[Ô]
Case dwflags And CONNECT_MODEM: ConnType = [Ô]Modem[Ô]
Case dwflags And CONNECT_PROXY: ConnType = [Ô]Proxy[Ô]
Case dwflags And CONNECT_OFFLINE: ConnType = [Ô]Offline[Ô]
Case dwflags And CONNECT_CONFIGURED: ConnType = [Ô]Configurada[Ô]
Case dwflags And CONNECT_RAS: ConnType = [Ô]Remota[Ô]
End Select
IsWebConnected = WebTest
End Function
Private Sub cmdConexao_Click()
dim msg as string
If IsWebConnected(msg) Then
mensagem
Else
msgbox [Ô] Você não está conectado a internet, portanto, o precesso será cancelado.[Ô] & vbcrlf & _
[Ô]Pedimos a gentileza de tentar mais tarde[Ô], vbinformation, [Ô]Asgard[Ô]
unload me
End If
End Sub
Espero que tenha ajudado.
Att
Ricardo Nantes
Segue um código para envio de email sem o uso do outlook, irá faltar somente a rotina para pegar o número do HD
Private Sub mensagem()
Dim texto As String
[ô] mensagem que será enviada
texto = [Ô]Prezado Usuário;[Ô] & Me.txtnome & vbCrLf & vbCrLf & [Ô]. Conforme sua solicitação, segue o seu login e senha para acesso ao programa Asgard[Ô] & vbCrLf & vbCrLf & [Ô] Login: [Ô] & Me.txtlogin & vbCrLf & vbCrLf & [Ô] Senha: [Ô] & Me.txtsenha & vbCrLf & vbCrLf & vbCrLf & [Ô]. Caso haja dúvidas, pedimos que entre em contato com depto. Adminstrativo. [Ô] & vbCrLf & vbCrLf & vbCrLf & vbCrLf & [Ô] Atenciosamente [Ô] & vbCrLf & vbCrLf & [Ô]Suporte Asgard[Ô]
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
[ô]a conexão é automatica (remetente)
.item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô] [ô]informe o servidor smtp aqui
.item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.item(cdoSMTPAuthenticate) = 1
.item(cdoSendUserName) = [Ô]xxxxxxxxxxxxxxxxxx[Ô] [ô]informe o usuario de autenticação; endereço de email
.item(cdoSendPassword) = [Ô]xxxxxxxxx[Ô] [ô]Informe a Senha aqui
.Update
End With
With msg
Set .Configuration = Cof
[ô]
.To = Me.txtemail [ô] destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.from = [Ô]gerenciamento.asgard@gmail.com[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]Login e senha para acesso ao programa Asgard[Ô] [ô]mensagem inicial
.HTMLBody = strhtml
.HTMLBody = texto [ô] texto com as informações que vc quer enviar
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]gerenciamento.asgard@gmail.com[Ô] [ô]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
End Sub
******************************************** /////// ******************************************************************************************
Entretanto, caso o PC não esteja conectado a net. terá uma mensagem de erro.
Segue o código para vericar se tem acesso a internet e não gerar mensagem de erro.
Private Declare Function InternetGetConnectedState Lib [Ô]wininet[Ô] (ByRef dwflags As Long, ByVal dwReserved As Long) As Long
Private Const CONNECT_LAN As Long = &H2
Private Const CONNECT_MODEM As Long = &H1
Private Const CONNECT_PROXY As Long = &H4
Private Const CONNECT_RAS As Long = &H10
Private Const CONNECT_OFFLINE As Long = &H20
Private Const CONNECT_CONFIGURED As Long = &H40
Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean
Dim dwflags As Long
Dim WebTest As Boolean
ConnType = [Ô][Ô]
WebTest = InternetGetConnectedState(dwflags, 0&)
Select Case WebTest
Case dwflags And CONNECT_LAN: ConnType = [Ô]LAN[Ô]
Case dwflags And CONNECT_MODEM: ConnType = [Ô]Modem[Ô]
Case dwflags And CONNECT_PROXY: ConnType = [Ô]Proxy[Ô]
Case dwflags And CONNECT_OFFLINE: ConnType = [Ô]Offline[Ô]
Case dwflags And CONNECT_CONFIGURED: ConnType = [Ô]Configurada[Ô]
Case dwflags And CONNECT_RAS: ConnType = [Ô]Remota[Ô]
End Select
IsWebConnected = WebTest
End Function
Private Sub cmdConexao_Click()
dim msg as string
If IsWebConnected(msg) Then
mensagem
Else
msgbox [Ô] Você não está conectado a internet, portanto, o precesso será cancelado.[Ô] & vbcrlf & _
[Ô]Pedimos a gentileza de tentar mais tarde[Ô], vbinformation, [Ô]Asgard[Ô]
unload me
End If
End Sub
Espero que tenha ajudado.
Att
Ricardo Nantes
obrigado a todos irei testar todos os metodos dos colegas e retorno !
uma otima semana para todos !
muito obrigado mesmo a todos !
uma otima semana para todos !
muito obrigado mesmo a todos !
Ares bom dia , obrigado , eu to so na duvida quanto a esse email e servidor de email e senha , esses dados deverao ser de quem do cliente na qual vai me enviar o email ou os meus dados ?
vou postar o seu codigo quanto a essa duvida obrigado
.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô] [ô]informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]xxxxxxxxxxxxxxxxxx[Ô] [ô]informe o usuario de autenticação; endereço de email
.Item(cdoSendPassword) = [Ô]xxxxxxxxx[Ô] [ô]Informe a Senha aqui
.Update
vou postar o seu codigo quanto a essa duvida obrigado
.Item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.Item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô] [ô]informe o servidor smtp aqui
.Item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUserName) = [Ô]xxxxxxxxxxxxxxxxxx[Ô] [ô]informe o usuario de autenticação; endereço de email
.Item(cdoSendPassword) = [Ô]xxxxxxxxx[Ô] [ô]Informe a Senha aqui
.Update
Amigo,
o processo é igual a configuração do outlook.
os dados acima serão seus. neste exemplo você que informa a sua configuração;
SEUS DADOS
With Camp
[ô]a conexão é automatica (remetente)
.item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô] [ô]informe o servidor smtp aqui
.item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.item(cdoSMTPAuthenticate) = 1
.item(cdoSendUserName) = [Ô]robson2011@gmail.com[Ô] [ô]informe o usuario de autenticação; endereço de email
.item(cdoSendPassword) = [Ô]robson2011[Ô] [ô]Informe a Senha aqui
.Update
End With
Sendo assim os dados de smtp usado para o envio dos email[ô]s serão os seus.
OS DADOS DO EMAIL:
.To = ROBSON2011@GMAIL.COM[ô]destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.from = [Ô]ROBSON2011@GMAIL.COM[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]NÚMERO DO HD DO CLIENTE XX[Ô] [ô]mensagem inicial
.HTMLBody = strhtml
.HTMLBody = texto [ô] texto com as informações que vc quer enviar
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]gerenciamento.asgard@gmail.com[Ô] [ô]Informe o ou os destinatários da cópia oculta
[ô].AddAttachment “c: este1.txt;c: este2.txt†[ô] informe o ou os anexos
.send
Ou seja, você a partir do computador do cliente irá mandar uma mensagem sua para você mesmo com as informações que você quer, sem passar por nenhum provedor
visÃvel de email.
Testa ai e me fala,
Att
o processo é igual a configuração do outlook.
os dados acima serão seus. neste exemplo você que informa a sua configuração;
SEUS DADOS
With Camp
[ô]a conexão é automatica (remetente)
.item(cdoSendUsingMethod) = 2 [ô] cdoSendUsingPort
.item(cdoSMTPServer) = [Ô]smtp.gmail.com[Ô] [ô]informe o servidor smtp aqui
.item(cdoSMTPConnectionTimeout) = 20 [ô] quick timeout
.item(cdoSMTPAuthenticate) = 1
.item(cdoSendUserName) = [Ô]robson2011@gmail.com[Ô] [ô]informe o usuario de autenticação; endereço de email
.item(cdoSendPassword) = [Ô]robson2011[Ô] [ô]Informe a Senha aqui
.Update
End With
Sendo assim os dados de smtp usado para o envio dos email[ô]s serão os seus.
OS DADOS DO EMAIL:
.To = ROBSON2011@GMAIL.COM[ô]destinatario1@email.com.br;destinatario2@email.com.br ‘ destinatarios separados por ;
.from = [Ô]ROBSON2011@GMAIL.COM[Ô] [ô][Ô]contatos@flowsys.com.br[Ô] [ô]remetente@email.com.br ‘ remetente[Ô]
.Subject = [Ô]NÚMERO DO HD DO CLIENTE XX[Ô] [ô]mensagem inicial
.HTMLBody = strhtml
.HTMLBody = texto [ô] texto com as informações que vc quer enviar
[ô].CC = [ô]Informe o ou os destinatários da cópia
[ô].BCC = [Ô]gerenciamento.asgard@gmail.com[Ô] [ô]Informe o ou os destinatários da cópia oculta
[ô].AddAttachment “c: este1.txt;c: este2.txt†[ô] informe o ou os anexos
.send
Ou seja, você a partir do computador do cliente irá mandar uma mensagem sua para você mesmo com as informações que você quer, sem passar por nenhum provedor
visÃvel de email.
Testa ai e me fala,
Att
Citação::
obrigado a todos irei testar todos os metodos dos colegas e retorno !
uma otima semana para todos !
muito obrigado mesmo a todos !
Recomendo usar a minha DLL com uma linha de codigo voce resolve o problema de enviar email ;)
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=387775
Oi amigo . obrigado a todos , ja testei aqui e funcinou direitinho !
que Deus abençoe a todos voces !
que Deus abençoe a todos voces !
Tópico encerrado , respostas não são mais permitidas