Envio de Correo dede Macro
Publicado por Roberto (5 intervenciones) el 11/11/2020 22:50:41
Buen dia.
Tengo un documento de word el cual contiene un boton que al presionarlo se ejecuta una macro que envia un correo electónico.
********************************************
En mi computadora funciona bien porque yo agregué la referencia "Microsoft.Outlook 16.0 Object Library"
El caso es que este documento de word lo voy a compartir con varias personas en computadoras diferentes con versiones diferentes de office.
Si abro el documento en otra computadora me da un error porque no encuentra la referencia.
Es posible que este documento pueda "almacenar la referencia" o algo asi para que desde cualquier computadora de pueda ejecutar la macro??
Tengo un documento de word el cual contiene un boton que al presionarlo se ejecuta una macro que envia un correo electónico.
********************************************
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim OutlookApp As Outlook.ApplicationDim MItem As Outlook.MailItemDim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Saldo As String
Dim Msg As String
On Error GoTo Errores
'Set OutlookApp = New Outlook.Application
Asunto = "Lo que sea"
Correo = "zzzzzzzzz@gruposabro.com"
Msg = "PRUEBA WORD"
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.body = Msg
.Attachments.Add ActiveDocument.FullName
.SendEn mi computadora funciona bien porque yo agregué la referencia "Microsoft.Outlook 16.0 Object Library"
El caso es que este documento de word lo voy a compartir con varias personas en computadoras diferentes con versiones diferentes de office.
Si abro el documento en otra computadora me da un error porque no encuentra la referencia.
Es posible que este documento pueda "almacenar la referencia" o algo asi para que desde cualquier computadora de pueda ejecutar la macro??
Valora esta pregunta
0
