Amail

[Guest - jackson -]

O que está errado aqui alguém sabe ?

Function Enviar()

Dim objOutlook As Outlook.Application

Dim objMailItem As Outlook.MailItem

Set objOutlook = CreateObject("outlook.application")

Set objMailItem = objOutlook.CreateItem(olMailItem)

objMailItem.Recipients.Add "denos200@hotmail.com"

objMailItem.Body = "Enviando e-mail desde Código"

objMailItem.Attachments.Add "c:\arquivo.txt"

objMailItem.Subject = "otimização"

objMailItem.Send

objOutlook.Quit

Set objOutlook = Nothing

End Function

[Aspmais]

acho que o caminho do arquivo.txt não está correto, mas o ideal é postar o erro e em que linha o erro ocorre pra gente poder te ajudar.

[Developer]

Function Enviar()
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem

Set objOutlook = Server.CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.Recipients.Add "denos200@hotmail.com"
objMailItem.Body = "Enviando e-mail desde Código"
objMailItem.Attachments.Add "c:\arquivo.txt"
objMailItem.Subject = "otimização"
objMailItem.Send
objOutlook.Quit
Set objOutlook = Nothing
End Function

[dark0]

O que está errado aqui alguém sabe ?

Function Enviar()

Dim objOutlook As Outlook.Application

Dim objMailItem As Outlook.MailItem

Set objOutlook = CreateObject("outlook.application")

Set objMailItem = objOutlook.CreateItem(olMailItem)

objMailItem.Recipients.Add "denos200@hotmail.com"

objMailItem.Body = "Enviando e-mail desde Código"

objMailItem.Attachments.Add "c:\arquivo.txt"

objMailItem.Subject = "otimização"

objMailItem.Send

objOutlook.Quit

Set objOutlook = Nothing

End Function

O que acontece quando você roda o codigo?

você está chamando essa função dentro do codigo, para ela ser executada?

O anexo ali, tá o caminho certo?

T+

PS: O que essa função faz?

[Guest Guest]

O erro está aqui.

CreateObject("outlook.application")

diz que o ActiveX não pode criar a o objeto

O sistema opeeracional é o windows98 com PWS

[ViniciusJau]

o esse codigo faz ?? envia um email atrazvez do outlook ??

[dark0]

então, esse erro aí, quer dizer que o objeto não foi criado.

Provavelmente, este componente, não está instalado na sua maquina.

você montou esse codigo sozinho?

Sabe pra que ele serve?