error sending mail

Question

i have this code ... worked fine for a long time .. but now i get the error

            This message could not be sent. You do not have the permission to send the message on behalf of the specified user.

__________________________________________________

Public Sub sendEmail(fileToSend As String, eMailStr As String, subjectLine As String, cop As String, copb As String, bodyStr As String, htmlbodyStr As String)

Dim OutApp As Outlook.Application 

Dim OutMail As Outlook.MailItem 

Set OutApp = New Outlook.Application 

Set OutMail = OutApp.CreateItem(0) 

With OutMail 

    .SentOnBehalfOfName = "******@xxx.be" 

    .To = eMailStr 

    .Subject = subjectLine 

    .CC = cop 

    .BCC = copb 

    .Body = bodyStr 

    .HTMLBody = htmlbodyStr 

    If fileToSend <> vbNullString Then 

    .Attachments.Add fileToSend 

    End If 

    .Display 

End With 

Set OutMail = Nothing 

Set OutApp = Nothing 

Exit_Here:

Exit Sub 

Error_sendemail:

Answer 1

This is not an Access issue, but an Outlook permissions issue. You apparently don't have SendOnBehalfOf rights anymore. Talk to your email administrator.

Answer 2

it works : i changed the code

Dim OutApp As Object

Dim OutMail As Object 

Set OutApp = CreateObject("Outlook.Application") 

Set OutMail = OutApp.CreateItem(0) 

With OutMail 

     Set .SendUsingAccount = OutApp.Session.Accounts.Item(1)  

    .To = eMailStr 

    .Subject = subjectLine 

    .CC = cop 

    .BCC = copb 

    .Body = bodyStr 

    .HTMLBody = htmlbodyStr 

    If fileToSend <> vbNullString Then 

    .Attachments.Add fileToSend 

    End If 

    .Display 

End With