[Resolvido]Botão enviar email sem abrir outlook

Olá a todos, utilizo access 2007 e uso este código no evento ao clicar para enviar e-mail para o outlook, funciona bem porém gostaria de anexar hiperlinks no corpo do email e não consigo, outra duvida é que ao clicar ele abre o outlook, existe a possibilidade de o access enviar sem abrir a janela do outlook?


Dim cod As String
Dim ser As String
Dim DAT As String

Dim OutApp As Object
Dim OutMail As Object

cod = TXCODPC
ser = TXNSERIE
DAT = DTORC

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "email@teste.com"
.CC = "email2@teste.com"
.BCC = "email3@teste.com"
.Subject = "Assinto"
.Body = "Corpo do email."
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub


obrigado a todos do fórum

Olá, não uso Outlook com o Access, uso CDO, que envia a mensagem automaticamente. Mas, para impedir que a janela dele seja aberta, pode tentar algo assim:

Dim cod As String
Dim ser As String
Dim DAT As String

Dim OutApp As Object
Dim OutMail As Object

cod = TXCODPC
ser = TXNSERIE
DAT = DTORC

Set OutApp = CreateObject("Outlook.Application")

OutApp.Visible = False

OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "email@teste.com"
.CC = "email2@teste.com"
.BCC = "email3@teste.com"
.Subject = "Assinto"
.Body = "Corpo do email."
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

Veja este meu exemplo;

http://dl.dropbox.com/u/771097/MandaMail_Sem_Seguranca_e_Recebe.rar

Obrigado pelas respostas.

Criquio, esta opção não deu certo, acusa erro nesta linha.

Jpaulo, eu abrirei seu exemplo em casa, pois no trabalho não consigo acessar.

Quanto ao adicionar hiperlinks no corpo do email, como faço?

muito obrigado novamente pela atenção.

Depende do que entender por hiperlinks.

No corpo do email, se você escrever www.maximoaccess.com, já vai por defeito como hiperlink.

é o link do diretorio que estão armazenados as planilhas, quando eu digito G:\COMUM\01 - BANCO DE DADOS\02 - LOGISTICA\Projetos 2012.xlsx no corpo do email ele não cria o hiperlink para este caminho. Ai penso que devo inserir um código para o access entender que isso é um link.

Tem de fazer assim, como no exemplo;

Código:


.HTMLBody = "<a href='" & Me.txcorpo & "' >Acessar</a>"


Insira apenas G:\COMUM\01 - BANCO DE DADOS\02 - LOGISTICA\Projetos 2012.xlsx, no corpo do formulario e envie para testar.

Boa tarde Jpaulo, perdoe-me a demora pela resposta, estava afastado, mas já retornei.

coloquei o código desta forma:

Private Sub Command74_Click()
Dim cod As String
Dim ser As String
Dim DAT As String

Dim OutApp As Object
Dim OutMail As Object

cod = TXCODPC
ser = TXNSERIE
DAT = DTORC

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

With OutMail
.To = "daniel.rocha@teste.com"
'.CC = ""
'.BCC = ""
.Subject = "Access Estrutura"
.Body = "G:\COMUM\01 - BANCO DE DADOS\02 - LOGISTICA\Access Estrutura.mdb"
.HTMLBody = "Acessar"
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Ele me mostrou no corpo a palavra "acessar" como se fosse um link, mas ao clicar não acontece nada. O que poderia estar ocasionando isso?

obrigado.

Resolvido. Mudei todo o código que havia colocado para exatamente igual ao exemplo do amigo JPaulo, deu certinho agora.

Obrigado.

Resolvido. Mudei todo o código que havia colocado para exatamente igual ao exemplo do amigo JPaulo, deu certinho agora.

Obrigado.