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
Private Sub MailSentAXX_Click()
'Es necesario añadir la referencia Microsoft Outlook Library (herramientas/referencias)
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "[email protected]"
.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 editar
End With
MsgBox "Se ha enviado el alta a XX de " & NOMBRE & " " & APELLIDOS, vbInformation, "PROCESS COMPLETE"
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
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.