Firma outlook desde Access
Publicado por anamfb (31 intervenciones) el 29/06/2005 13:42:18
Hola a todos, envio a traves de código access un fichero al outlook y la firma no sale. Cuando abro outlook me sale automaticamente, pero si lo abro desde access no me sale. ¿Que tengo que hacer?. Este es mi código.
Muchas gracias
ENVIARA = Me.txtContactos
CC = Me.txtContactosCop
ASUNTO = Me.VASUNTO
DESCRIPCION = Me.DESCRIPCION_DOC
Set objApp = New Outlook.Application
Set OBJMAILITEM = objApp.CreateItem(ItemType:=olMailItem)
J = 1
With OBJMAILITEM
.To = ENVIARA
.CC = CC
.Subject = ASUNTO
.Body = DESCRIPCION
If attach Then
.Attachments.Add UCase(Me.DOCADJUNTAR)
End If
.Save
If OPCION = 0 Then
.Display
Else
.Send
End If
End With
'OBJMAILITEM.Close olDiscard
Set OBJMAILITEM = Nothing
Set objApp = Nothing
Muchas gracias
ENVIARA = Me.txtContactos
CC = Me.txtContactosCop
ASUNTO = Me.VASUNTO
DESCRIPCION = Me.DESCRIPCION_DOC
Set objApp = New Outlook.Application
Set OBJMAILITEM = objApp.CreateItem(ItemType:=olMailItem)
J = 1
With OBJMAILITEM
.To = ENVIARA
.CC = CC
.Subject = ASUNTO
.Body = DESCRIPCION
If attach Then
.Attachments.Add UCase(Me.DOCADJUNTAR)
End If
.Save
If OPCION = 0 Then
.Display
Else
.Send
End If
End With
'OBJMAILITEM.Close olDiscard
Set OBJMAILITEM = Nothing
Set objApp = Nothing
Valora esta pregunta
0