0x800ccc15 error on sending e-mail

[fredalina]

i have an Access program module that i wrote in (and which performs fine in) a Citrix connection. The module sends an email with an attachment.

When run outside of Citrix, i receive the error in the subject. i presume this is not an Access error but rather an MS Outlook security issue which perhaps Citrix has a work-around for...? Is there a way to bypass this? Most of the users do not have and cannot get Citrix connectivity.

My department runs many Access databases which send emails for daily reports, but we run them all through Citrix, and consequently we do not see this error.

Thanks!

 

[gemma-the-husky]

what code are you using to raise the email, in the local desktop environment.

do you know exactly which statmeent crashes the process

 

[fredalina]

Set Message = CreateObject("CDO.Message")
                Message.Configuration.Fields.Item("[URL]http://schemas.microsoft.com/cdo/configuration/sendusing[/URL]") = 2
                Message.Configuration.Fields.Item("[URL]http://schemas.microsoft.com/cdo/configuration/smtpserver[/URL]") = "Company Server Name"
                Message.Configuration.Fields.Item("[URL]http://schemas.microsoft.com/cdo/configuration/smtpserverport[/URL]") = 25
                Message.Configuration.Fields.Update
            With Message
                .from = [EMAIL="myemail@email.com"]myemail@email.com[/EMAIL]
                '.To = recipient
                .To = "[EMAIL="sarah.adkins@nissan-usa.com"]myemail[/EMAIL]@email.com"
                .Subject = "Subject"
                .TextBody = "Text."
                .Addattachment "Attachment Path"
                .Send

The code stops at the .Send command. The error is that in the subject.

Thanks for any help you can provide.

 

[fredalina]

FYI I've managed to resolve this issue by using different automation code.

Thank you.

 

[chergh]

How about inlcuding the code you used to resolve the issue in case it helps someone else?

 

[fredalina]

Excellent idea.

            Dim objOutlook
            Dim Message
            Dim olMail Item
 
            Set objOutlook = CreateObject("Outlook.Application")
            Set Message = objOutlook.CreateItem(olMailItem)
            With Message
                .To = "[EMAIL="myemail@email.com"]myemail@email.co[/EMAIL]"
                .Subject = "Subject"
                .body = "Body."
                .Attachments.Add ("[URL="file://\\Usiccsw002\nmcshared\Process"]Path[/URL]")
                .Attachments.Add ("Path")
                .Attachments.Add ("Path")
            End With