-
Feb 20th, 2012, 01:59 PM
#1
Thread Starter
New Member
Script to auto-click "Allow" Outlook promt
-
Feb 20th, 2012, 03:10 PM
#2
Lively Member
Re: Script to auto-click "Allow" Outlook promt
Hi Try using CDO like this example :
PHP Code:
Dim messageHTML
Dim Previousday
Dim FileAttach
Dim ToAddress
Dim CcAddress
Dim MailSubject
Previousday = Day(Date-1) & "_" & Month(Date-1) & "_" & Year(Date-1)
messageHTML="Find in attachment, Report Day_" & (Previousday)
'FileAttach = "D:\Report_Day_" & (Previousday) & ".xlsx"
FromAddress = "Toto@mail.com"
ToAddress = "me@address.com"
'CcAddress = "another@address.com"
MailSubject = "Report_Day_" & (Previousday)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = MailSubject
objMessage.From = FromAddress
objMessage.To = ToAddress
'objMessage.CC = CcAddress
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxx.com" 'change THE SMTP SERVER to yours
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'Ajout d'un message en HTML
objMessage.HTMLBody="<center><font size=4 FACE=Tahoma Color=red>"&messageHTML
'objMessage.AddAttachment(FileAttach)
objMessage.Send
If Err.Number <>0 Then
MsgBox Err.Description,16,"Erreur"
msgbox "The mail failed to delivery !",16,"Information"
Else
msgbox "The mail sent sucessfully !",64,"Information"
End If
-
Feb 20th, 2012, 03:14 PM
#3
Thread Starter
New Member
Re: Script to auto-click "Allow" Outlook promt
Thanks for the reply. I've looked into doing it that way, but I would like to bypass that by simply creating a script to detect that pop message and click allow for me. I'm just havin a hard time finding the code to do that.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|