email enviado excel
Publicado por MAMICHO (1 intervención) el 04/03/2008 02:42:05
hola amigos como puedo poner en este mail el texto que va en el cuerpo del mensaje el body????
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Set objMailItem = objOutlook.CreateItem(0)
Dim objRecipient As Object
Dim Fichero As String
Dim Destino As String
Fichero = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
ActiveWorkbook.SendMail Array("[email protected]", "[email protected]"), "asunto", False
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Set objMailItem = objOutlook.CreateItem(0)
Dim objRecipient As Object
Dim Fichero As String
Dim Destino As String
Fichero = ActiveWorkbook.Path & "" & ActiveWorkbook.Name
ActiveWorkbook.SendMail Array("[email protected]", "[email protected]"), "asunto", False
Valora esta pregunta
0