| Usuario |
Ayuda en correo desde visual basic |
Desconocido
|
| Enviado - 17/11/2004 |
| |
Alguien me podria decir , por favor, por que no va este codigo
Function EnviarCorreo()
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Set objOutlook = CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.Recipients.Add "[email protected]"
objMailItem.Body = "Enviando e-mail desde Código"
objMailItem.Attachments.Add "c:\denos.txt"
objMailItem.Subject = "PRUEBA DE AUTOMATIZACION"
objMailItem.Send
objOutlook.Quit
Set objOutlook = Nothing
End Function
gracias |
| |
|
|
|
