Hola a todo
He conseguido mandar un mail desde excel con el siguiente código
Sub Mail(
Dim MapiMessage As Objec
Dim MapiSession As Objec
Set MapiSession = CreateObject("Mapi.Session"
Set ObjOutlook = CreateObject("Outlook.Application"
Set myNameSpace = ObjOutlook.GetNamespace("MAPI"
Set myFolder = myNameSpace.GetDefaultFolder(4
Set MapiMessage = myFolder.Items.Ad
With MapiMessag
.Recipients.Add "nombre@dominio.com
.Subject = "Prueba
.Body = "Hola, esto es una prueba" & Chr(13) & "Saludos" & Chr(13
.Sen
End Wit
Set MapiSession = Nothin
End Su
El problema que tengo es que cada vez que lo ejecuto me da el mensaje de aviso de que otro programa está intentando acceder al listado de contactos de outlook y otro mensaje de aviso de que otro programa está intentando mandar un correo
Hay alguna forma de que no me salgan estos mensajes de advertencia? He probado co
Application.DisplayAlerts = Fals
pero no funciona
Alguine que domine la materia
Un salud
Carlos
Leer las respuestas