Sending emails without interruptions

[George]

Hi I am using a form to send an email but part way in the process a message box pops up with 2 buttons labeled: Allow and Deny with some other information. I am forced to select allow in order for the send process to be completed.

Is there a way to prevent this popup so that the process completes smoothly without interruptions?

[rpeare]

are you using outlook objects or are you using some external method (CDONT?).

Using MS outlook library you can suppress any confirmations about sending email.

[ranman256]

You must filter the code thru a 3rd party control called Redemption.
google Redemption, outlook.
it works, I use it.

[George]

Thanks. I am using only Outlook objects.

Happy to hear that there is a means to suppress this message. Can you please tell me how?

Ok I would try redemption.

[rpeare]

    Dim oApp As Outlook.Application
    Dim oMail As MailItem
    Dim sAttachment As String
    
    Set oApp = CreateObject("Outlook.application")
    
    Set oMail = oApp.CreateItem(olMailItem)
    With oMail
        .Body = "This is the body"
        .Subject = "BJA Service Related Information"
        .To = emailrecipient
        sAttachment = fldExportPath & fldExportFile
        .Attachments.Add sAttachment
        .Send
    End With
    
    Set oMail = Nothing
    Set oApp = Nothing

This code is cut out of one of my databases and sends an email without requesting confirmation.

[George]

Thanks all.

This code definitely works with ease exception for the attachment. Can you please give me an example of how the path for the attachment can be written.

[George]

Thanks all.

This code definitely works with ease exception for the attachment. Can you please give me an example of how the path for the attachment can be written.

[rpeare]

on the form that runs this code fldExportpath is set to a default value (=currentproject.path & "\in files\") and my file name is constant (it's just there for a visual reminder for the user and set to ="Data_Export.txt") the code just concantenates the two strings together.

How you populate the string it is up to you. You can use file dialog options to pick a file/folder and have your process adopt it to make your code more flexible, it really depends on your business process.

[George]

Thanks.

I am using the follow code but gets an error message saying: Runtime error 429 Active X component can't create this object.

This is line of code is highlighted: Set oApp = CreateObject("Outlook.application")

Dim oApp As Outlook.Application
Dim oMail As MailItem
Dim sAttachment As String
Dim emailrecipient As String

emailrecipient = "greneebb@yahoo.com"


Set oApp = CreateObject("Outlook.application")

Set oMail = oApp.CreateItem(olMailItem)
With oMail
.Body = "This is the body"
.Subject = "Samuel Jackman Prescod Polytechnic"
.To = emailrecipient

sAttachment = CurrentProject.Path & "\george.doc\"


.Send
End With

Set oMail = Nothing
Set oApp = Nothing

[George]

Hi rpeare,
Please ignore my previous reply. Actually my Outlook was corrupt.

I however need a little bit more explanation in making the attachment. Now, I am opening and attaching a report, so it is not a file in a directory. I believe that the "\my file\" would be inappropriate in this case. Is that opinion correct? and can you recommend anything else?


Thank in advance.

[rpeare]

I don't understand the question. The attachment function was not part of your original post so I do not know what your requirement is.

Are you saying you want to export a report directly to email and NOT retain an original copy of the file?

your code in post #9 isn't correct, if you had a file in your database directory with the name george.doc you do not want to include the \ mark at the end

it would be:

sAttachment = CurrentProject.Path & "\george.doc"

then you would have to ADD the attachment to your email

attachments.add sattachment

before the .send command

[George]

Thanks again.
I agree that the attachment was not part of my original post; however I was glad to know about it and I intend to use it in the future.

You are correct that I want to export a report directly to email and NOT retain an original copy of the file. That really my original objective, but obviously it would be emailed as an attachment.

Thank for the correction at post #9

The rest seem clear to me.

[rpeare]

the method I gave you won't work if you don't want to retain an electronic copy of the original unless you use it in conjunction with filesystemobjects to delete the file after you've attached it.

you could try

http://www.fmsinc.com/microsoftacces...endobject.html

sendobject allows you to send a report/form/etc directly to an email, however, if I remember correctly, you can't attach more than one file where the method I gave you, you can add as many as your email server will allow in physical size of files.

See the section "LIMITATIONS OF THE SENDOBJECT COMMAND"

Pick the method that works best for all your issues, I've always found the example I gave you to be the more flexible.

[George]

Thanks. I have a better overall understanding of the scope and limitations of the sendobjects command which I was attempting to use. You have presented me with several options so I would get to work now. I think that I would save a copy of the report, then email it using the 1st option you gave, then I would go back and delete the save copy as I have no use for it.

[George]

Everything is now working fine.

Thanks for your assistance