Emailing a report

[Hudson]

Right easy one for all you genius'sout there. New to access 2007 so here we go. How do you run a macro to email a report without getting the error message 'No profiles have been created'...'the password is invalid'. PS I'm running the macro SendObject.

 

[Chad-M]

This code will open up your outlook (dont forget to add the refrence) if it is not already running. Im not sure if this will help you or not.

        Dim bStarted As Boolean
        Dim oOutlookApp As Outlook.Application
        Dim oItem As Outlook.MailItem
                
        On Error Resume Next
        
        'Get Outlook if it's running
        Set oOutlookApp = GetObject(, "Outlook.Application")
            If Err <> 0 Then
                'Outlook wasn't running, start it from code
                Set oOutlookApp = CreateObject("Outlook.Application")
                bStarted = True
            End If
        
        'Create a new mailitem
        Set oItem = oOutlookApp.CreateItem(olMailItem)