Access - Modificar este codigo

Option Explicit

     Private Sub Command1_Click()

       Dim objSession As Object

       Dim objMessage As Object

       Dim objRecipient As Object

       'Create the Session Object.

       Set objSession = CreateObject("mapi.session")

       'Logon using the session object.

       'Specify a valid profile name if you want to.

       'Avoid the logon dialog box.

       objSession.Logon profileName:="MS Exchange Settings"

       'Add a new message object to the OutBox.

       Set objMessage = objSession.Outbox.Messages.Add

       'Set the properties of the message object.

       objMessage.subject = "This is a test."

       objMessage.Text = "This is the message text."

       'Add a recipient object to the objMessage.Recipients collection.

       Set objRecipient = objMessage.Recipients.Add

       'Set the properties of the recipient object.

       objRecipient.Name = "John Doe"  '<---Replace this with a valid

                                       'display name or e-mail alias

       'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;

       'they all have a constant value of 1.

       objRecipient.Type = mapiTo

       objRecipient.Resolve

       'Send the message.

       objMessage.Send showDialog:=False

       MsgBox "Message sent successfully!"

       'Logoff using the session object.

       objSession.Logoff

     End Sub

DoCmd.OutputTo acReport, "Informe1", "(*.pdf)", CurrentProject.Path & "\Informe del " & Format(Now(), "dd-mm-yyyy hh_mm_ss ") & ".pdf", False