Visual Basic - Problemas con codigo Outlook

Life is soft - evento anual de software empresarial
   
Vista:

Problemas con codigo Outlook

Publicado por javier (2 intervenciones) el 07/03/2014 18:15:33
Buenas

Soy nuevo y estoy empezando, Mis conocimientos son casi nulos.
He realizado un codigo que al tener seleccionados unos mensajes de correo en la bandeja de entrada de Outlook, les manda un correo a los seleccionados. El problema es que abre muchos correosm tantos como selecciones. Quiero que habra solo un correo y en la direccion de envio ( .to), aparezcan todos los remitentes. Intuyo qye se hace cun una matriz pero no se hacerlo.
¿Me podeis ayudar? Dejo el codigo. Macro de Outlook

Sub Mail_workbook_Outlook()
Dim selection As Outlook.MailItem

'Es necesario añadir la refeerncia Microsoft Outlook Library (herramientas/referencias)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
For Each selection In Application.ActiveExplorer.selection

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = selection.SenderEmailAddress
.CC = ""
.BCC = ""
.Subject = "Asunto del mensaje"
.Body = "Este es el texto del mensaje"
'Se pueden adjuntar ficheros

.Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
End With
Set OutMail = Nothing
Set OutApp = Nothing

Next selection


End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problemas con codigo Outlook

Publicado por javier (2 intervenciones) el 08/03/2014 16:03:20
solucionado
:
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar