outlook2003 email 5 second wait

Everything worked great until I upgraded my version of excel. now there is a security feature that prevents me from sending the email. I have looked with no success, if someone could fix the code for me that would be great.

I figure if it can wait five seconds then press TAB TAB ENTER it might work.

any other ideas would be great too

Sub EMail()




 
extn = "@yahoo.com"
Address = Range("FDS").Text & extn & "; " & Range("SSA").Text & extn
SSA = Range("SSA").Text
FDS = Range("FDS").Text
From = Range("From").Text
andTo = Range("andTo").Text
Altcont = Range("altcont").Text




    Dim OutApp As Object
    Dim OutMail As Object
    Dim strto As String, strcc As String, strbcc As String
    Dim strsub As String, strbody As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strto = Address
    strcc = ""
    strbcc = ""
    strsub = "On Call Reminder"
    strbody = "string using SSA etc"
   


    With OutMail
        .To = strto
        .CC = strcc
        .BCC = strbcc
        .Subject = strsub
        .Body = strbody
        .Send
        
        newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime




         
         
         
        SendKeys ("{TAB}{TAB}{ENTER}")
        
        
          
         
         
         
         
         
    End With
    
      
    Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub

Thankyou

Justin

Re: outlook2003 email 5 second wait

That is a terribly defeatist attitude. Anyway I know it is problematical giving advice on how to bypass security features even when they are unbelievably irritating. I guess I will now have to go and workout how to do the same thing using outlook instead of excel, assuming outlook will let a macro send an email?

Since you cant/ wont help with the original question could you advise if there is a good starting point for using outlook to produce a roster, or maybe calling excel values (the program I have made the roster in, which was working nicely until uncle Gates decided I couldnt do it anymore) and using them in outlook?

Ah hell, I give up

Re: outlook2003 email 5 second wait

Is there maybe a way to give a digital sig to the excel I am using that I can then tell outlook to accept?

Re: outlook2003 email 5 second wait

By the way, it seems like a bit of a rediculous reply... security features are there to prevent trojans etc... not limit the utility of the program to legitimate users.

There must be a way to have excel send an email via outlook when without having to wait 5 seconds and press yes... surely?

Maybe if your "hope that helps" message royUK wasnt there someone would have told me.