officce 365
Publicado por raul (1 intervención) el 28/04/2020 22:43:44
Hola necesito ayuda. tengo un access 2010 y hice un programa para outlook 2010 para enviar correos masivos. tengo un problema. mi empresa me instalaron el mail officce 365 y ahi viene el problema, cuando uso el programa no me levanta los mail al 365. Necesito ayuda.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CREATEITEM(OLMAILITEM)
With OutMail
.To = "Cabral, Jorge"
.CC = "Patron, Matias; Pola, Daniel Oscar"
.Subject = "R0. Activacion de piezas con fecha de rendición el día la fecha"
'Se pueden adjuntar ficheros
.Attachments.Add ("E:\R0 Y R+5\CDD CAMPANA.xls")
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Valora esta pregunta


0