Error 13....
Publicado por trekkier (1 intervención) el 07/04/2021 18:34:11
Hola!
Me estoy volviendo un poco loco con esto... porque no le encuentro lógica alguna.
Partamos de la base que esto estaba funcionando hasta ayer, y llevo un montón de horas sin saber que le pasa ni encontrar una solución.
Tengo un formulario, en el que hay varios campos que proceden de una tabla o si se inserta un registro nuevo va a la tabla. Son empleados y se trata de que con cada alta, baja, modificación etc, se envíen una serie de correos preformados con los datos necesarios para cada caso.
El codigo es este
Desde ayer me da un error 13 y que no coinciden los tipos en:
.Subject = "[XX] Nueva Incorporacion " & "Alta de" & " " & NOMBRE & " " & APELLIDOS & "(" & INCORPFECHA & ")"
siendo NOMBRE una cadena de texto corto, igual que APELLIDOS, e INCORPFECHA un cadena de fecha
Muchas gracias por vuestra ayuda, porque yo ya no sé ni para donde ir con esto.
Me estoy volviendo un poco loco con esto... porque no le encuentro lógica alguna.
Partamos de la base que esto estaba funcionando hasta ayer, y llevo un montón de horas sin saber que le pasa ni encontrar una solución.
Tengo un formulario, en el que hay varios campos que proceden de una tabla o si se inserta un registro nuevo va a la tabla. Son empleados y se trata de que con cada alta, baja, modificación etc, se envíen una serie de correos preformados con los datos necesarios para cada caso.
El codigo es este
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub MailSentAXX_Click()
'Es necesario añadir la referencia Microsoft Outlook Library (herramientas/referencias)Dim OutApp As Outlook.ApplicationDim OutMail As Outlook.MailItemSet OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "correodeXX@loquesea.es"
.CC = ""
.BCC = ""
.Subject = "[XX] Nueva Incorporacion " & "Alta de" & " " & NOMBRE & " " & APELLIDOS & "(" & INCORPFECHA & ")"
.body = "Buenos días, " & vbCrLf & vbCrLf & "UN MONTON DE TEXTO Y VARIABLES "." & vbCrLf & vbCrLf & "Recibe un cordial saludo" 'The body of the mail
.Send 'tambien se puede usar .Display y lo muestra por si hay que añadir un adjunto o editarEnd WithMsgBox "Se ha enviado el alta a XX de " & NOMBRE & " " & APELLIDOS, vbInformation, "PROCESS COMPLETE"
Set OutMail = NothingSet OutApp = NothingEnd SubDesde ayer me da un error 13 y que no coinciden los tipos en:
.Subject = "[XX] Nueva Incorporacion " & "Alta de" & " " & NOMBRE & " " & APELLIDOS & "(" & INCORPFECHA & ")"
siendo NOMBRE una cadena de texto corto, igual que APELLIDOS, e INCORPFECHA un cadena de fecha
Muchas gracias por vuestra ayuda, porque yo ya no sé ni para donde ir con esto.
Valora esta pregunta
0