Asignar Tarea Outlook a una persona x medio Vfox
Publicado por Roy (10 intervenciones) el 14/06/2003 21:57:49
Este es el código para enviar un correo utilizando Outlook desde Vfox.
rProfile = "Perfil de Usuario"
strPassword = "Contraseña"
strRecipient = "[email protected]"
strSubject = "Asunto"
strBody = "Este es el mensaje..."
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
theMailItem.Send
theNameSpace.Logoff
PERO QUÉ DEBO AGREGAR Ó CAMBIAR PARA QUE ESTE SE VAYA COMO UNA TAREA Y SE LE ASIGNE A LA PERSONA QUE SE LE ENVIA
rProfile = "Perfil de Usuario"
strPassword = "Contraseña"
strRecipient = "[email protected]"
strSubject = "Asunto"
strBody = "Este es el mensaje..."
theApp = CreateObject("Outlook.Application")
theNameSpace = theApp.GetNameSpace("MAPI")
theNameSpace.Logon(strProfile , strPassword)
theMailItem = theApp.CreateItem(0)
theMailItem.Recipients.Add( strRecipient )
theMailItem.Subject = strSubject
theMailItem.Body = strBody
theMailItem.Send
theNameSpace.Logoff
PERO QUÉ DEBO AGREGAR Ó CAMBIAR PARA QUE ESTE SE VAYA COMO UNA TAREA Y SE LE ASIGNE A LA PERSONA QUE SE LE ENVIA
Valora esta pregunta
0