macro para emviar email pelo outlook express

julio1400
(usa Ubuntu)

Enviado em 29/12/2009 - 16:42h

Boa tarde;estou precisando de uma ajuda, implementei o fonte abaixo que faz uma chamada e um botao dentro do scalc e envia um arquivo em pdf por e-mail, o problema é que só consegui implementar isso para o outlook, e preciso com urgência implementar isso para outlook express

Por favor me ajudem


Dim OutApp As Object
Dim OutMail As Object
Dim endereco as String
Dim anexo as string
Dim mensagem as string
On Error Resume Next
anexo = range("D2")
anexo = "c:\Manuais\" & anexo & ".pdf"
endereco = ""
do while endereco = ""
endereco = InputBox("Digite o Endereço de e-mail:", "Inserir Texto", "")
if endereco = "" then exit sub
loop
mensagem = ""
mensagem = InputBox("Digite a Mensaguem:", "Inserir Texto", "")
On Error GoTo 0
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = endereco
.CC = ""
.BCC = ""
.Subject = "Envio de manual - " & Format(Now, "dd-mmm.yyyy hh:mm:ss")
.Attachments.Add(anexo)
.Body = mensagem
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing