ENVIAR EMAIL
Amigos,
Como faco para enviar um relatorio (inclusive formatacao) gerado em Datareport por
email (winsock, DLL, qq coisa)?
Obrigado
[]'s
Knsuper
Como faco para enviar um relatorio (inclusive formatacao) gerado em Datareport por
email (winsock, DLL, qq coisa)?
Obrigado
[]'s
Knsuper
procure aqui no site por Vbsendmail
Exporte seu relatório para html e envie
Exporte seu relatório para html e envie
entaum...
exportei o relatorio para html, funciona mais ou menos...
ele importa todas as informacoes do relatorio mas naum traz o logotipo (JPG)
q estah inserido no relatorio atraves do controle Image.
Oq fazer?
[]'s
Knsuper
exportei o relatorio para html, funciona mais ou menos...
ele importa todas as informacoes do relatorio mas naum traz o logotipo (JPG)
q estah inserido no relatorio atraves do controle Image.
Oq fazer?
[]'s
Knsuper
KNSUPER, tente este código aki, ó... (se já não for este o que vc está usando...)
[txt-color=#ff0000]Referencie em seu projeto o controle MSMAPI32.OCX - Microsoft MAPI Controls 6.0 - Clicando na opção Project do menu do VB e selecionando a opção Components.[/txt-color]
-Insira no formulário os seguintes objetos:
1. 4 objetos Labels (etiquetas- Veja o nome usado em cada uma no projeto abaixo)
2. 5 Objetos TextBox (Caixas de texto)
3. Dois objetos CommandButton (botões de Comandos)
4. Um objeto MAPISession e um objeto MAPIMessages
- A seguir apague o conteúdo da propriedade Text de cada TextBox (caixas de texto) e para a TextBox - Text5 - defina a propriedade Multiline como True e ScrollBars como Boths. O nome dado para cada caixa de texto é:
1. txtpara
2. txtsubject
3. txtusuario
4. txtsenha
5. txtmensagem
Insira o seguinte código no evento click do botão Enviar:
Private Sub Command1_Click()
On Error GoTo trata_erro
MAPISession1.UserName = txtusuario.Text
MAPISession1.Password = txtsenha.Text
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = txtsubject.Text
MAPIMessages1.RecipAddress = txtpara.Text
MAPIMessages1.AddressResolveUI = False
MAPIMessages1.MsgSubject = txtsubject.Text
MAPIMessages1.MsgNoteText = txtmensagem.Text
MAPIMessages1.Send False
MAPISession1.SignOff
Exit Sub
trata_erro:
MsgBox "Erro " & Format$(Err.Number) & " ao enviar o e-mail" & vbCrLf & Err.Description
End Sub
__________________________________________________________________________________________
Acho que isto resolve (é o código que eu uso para a mesma função que vc quer...)
Qualquer coisa, dá um toque, vlw ???
Abraço.
[txt-color=#ff0000]Referencie em seu projeto o controle MSMAPI32.OCX - Microsoft MAPI Controls 6.0 - Clicando na opção Project do menu do VB e selecionando a opção Components.[/txt-color]
-Insira no formulário os seguintes objetos:
1. 4 objetos Labels (etiquetas- Veja o nome usado em cada uma no projeto abaixo)
2. 5 Objetos TextBox (Caixas de texto)
3. Dois objetos CommandButton (botões de Comandos)
4. Um objeto MAPISession e um objeto MAPIMessages
- A seguir apague o conteúdo da propriedade Text de cada TextBox (caixas de texto) e para a TextBox - Text5 - defina a propriedade Multiline como True e ScrollBars como Boths. O nome dado para cada caixa de texto é:
1. txtpara
2. txtsubject
3. txtusuario
4. txtsenha
5. txtmensagem
Insira o seguinte código no evento click do botão Enviar:
Private Sub Command1_Click()
On Error GoTo trata_erro
MAPISession1.UserName = txtusuario.Text
MAPISession1.Password = txtsenha.Text
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = txtsubject.Text
MAPIMessages1.RecipAddress = txtpara.Text
MAPIMessages1.AddressResolveUI = False
MAPIMessages1.MsgSubject = txtsubject.Text
MAPIMessages1.MsgNoteText = txtmensagem.Text
MAPIMessages1.Send False
MAPISession1.SignOff
Exit Sub
trata_erro:
MsgBox "Erro " & Format$(Err.Number) & " ao enviar o e-mail" & vbCrLf & Err.Description
End Sub
__________________________________________________________________________________________
Acho que isto resolve (é o código que eu uso para a mesma função que vc quer...)
Qualquer coisa, dá um toque, vlw ???
Abraço.
Tópico encerrado , respostas não são mais permitidas