Seleccionar cuenta de outlook para envio de email
Publicado por Bryignacio (1 intervención) el 03/06/2021 16:07:33
Por fa me ayudan?
estoy intentando habilitar un cuadro combinado para seleccionar la cuenta de outlook desde la cual quiero enviar el correo. pero me aparece un error
estoy intentando habilitar un cuadro combinado para seleccionar la cuenta de outlook desde la cual quiero enviar el correo. pero me aparece un error
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
Dim MiOutlook As Outlook.ApplicationDim CuentaOutlook As Outlook.AccountSet MiOutlook = New Outlook.Application
DJVIVANCO.botoncuentaoutlook.Clear
For Each CuentaOutlook In miutlook.Session.Accounts
DJVIVANCO.botoncuentaoutlook.AddItem CuentaOutlook
Next
Set MiOutlook = Nothing Set CuentaOutlook = NothingEnd Sub
Valora esta pregunta
0