Ayuda por favor con codigo enviar mail outlook
Publicado por Anita (22 intervenciones) el 21/02/2018 17:57:12
Hola a tod@s
A ver si me pueden ayudar por favor, tengo una aplicacion para enviar correo electrónico usando outlook y me funciona perfectamente, pero tengo dos cuentas y no se como hacer para indicarle que use la segunda cuenta en vez de la primera que es la predeterminada.
Este es el código que me funciona
He tratado de insertar: .SendUsingAccount pero no se cómo hacerlo pues no me acaba de funcionar así:
Les agradeceré cualquier comentario, gracias por su tiempo.
A ver si me pueden ayudar por favor, tengo una aplicacion para enviar correo electrónico usando outlook y me funciona perfectamente, pero tengo dos cuentas y no se como hacer para indicarle que use la segunda cuenta en vez de la primera que es la predeterminada.
Este es el código que me funciona
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim OutApp As Outlook.ApplicationDim OutMail As Outlook.MailItemSet OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = Destinatario_GlobES 'destinatario
.CC = ""
.BCC = ""
.Subject = Asunto_GlobES 'asunto
.Body = VTextoCorreo 'texto, cuerpo
.SendEnd With
Set OutMail = NothingSet OutApp = NothingHe tratado de insertar: .SendUsingAccount pero no se cómo hacerlo pues no me acaba de funcionar así:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim OutApp As Outlook.ApplicationDim OutMail As Outlook.MailItemSet OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Dim Mcuenta As Outlook.AccountSet Mcuenta = OutApp.Session.Accounts("anitacuentasec@enterprises.com")
With OutMail
.To = Destinatario_GlobES 'destinatario
.CC = ""
.BCC = ""
.Subject = Asunto_GlobES 'asunto
.Body = VTextoCorreo 'texto, cuerpo
.SendUsingAccount = Mcuenta
.SendEnd With
Set OutMail = NothingSet OutApp = NothingLes agradeceré cualquier comentario, gracias por su tiempo.
Valora esta pregunta
0