Outlook confirmation message while esnding email via VBA

Your problem seems related to Outlook, not to XL.
Better post at a forum for Outlook.

Hello Modytrane,

It would help to if you posted your workbook. I can review all your code and give you an answer.

Sincerely,
Leith Ross

Leith,
Thanks for your response.
Here is the file.
The worksheet "Breakdown" is updated with other programs and the attached file sends out email to recipients and CC as identified on this file.

The code for sending email was found on this forum. I edited it to suit my requirements.

This file is only part of a larger process. I have another issue on this project that I am trying to get answer via seperate thread.

Appreciate your help.
modytrane.

Roy,
We all know why the confirmation messages are put up.
Microsoft programs also have Password features to prevent unauthorized access to files. However, there are hundreds of solutions to break the passwords.
Sometimes these security features get in our way, when we are trying to create productivity improvement tools.
What I am trying to do is automate a process of sending out multiple emails.
How does it make sense to make the admin pesron sit there and acknowledge 50 or 60 times, when she could be doing something more productive.

I don't want to disable the security measure permanantly, just bypass it during this process [my macro], so that all the emails will go out without user action.

Hope you understand.

modytrane.

I just thought about a different way to look at my problem.
What I was trying to do was to make it efficient for the admin person to send out multiple emails.

If we don't want to bypass security or if it is too complex to implement, then maybe following can be considered.

Can the macro create all the emails and hold them for later?
When all emails are done [macro has gone through all the files], then one security question is asked and one user confirmation would send out all the emails.

Thanks,
modytrane

Hello modytane,

Here is a macro I wrote to delay the sending of an email. You specify the data and time for the email to be sent. This can be easily adapted for your use. I can make the necessary changes if you like.

'Written: October 19, 2008
'Author:  Leith Ross
'Summary: Delays sending an email until a certain Date-Time using Outlook.

Sub DelaySendingEmail()

  Dim Msg As String
  Dim olApp As Object
  Dim olEmail As Object
  Dim SendAt As String
  Dim SendTo As String
  Dim Subj As String
  
    SendTo = "LeithRoss@gmail.com"
    Subj = "Delayed Email test"
    Msg = "No message."
    SendAt = "10/19/2008 12:30am"     'Date-Time must be in this format
    
      On Error Resume Next
        Set olApp = GetObject(, "Outlook.Application")
        If Err = 429 Then
          Err.Clear
          Set olApp = CreateObject("Outlook.Application")
        End If
      On Error GoTo 0
      olApp.Session.Logon
      
      Set olEmail = olApp.CreateItem(olMailItem)
        With olEmail
          .DeferredDeliveryTime = SendAt
          .To = SendTo
          .Subject = Subj
          .Body = Msg
          .Send
        End With
            
    olApp.Session.Logoff

    Set olApp = Nothing
    Set olEmail = Nothing
    
End Sub

Sincerely,
Leith Ross