RE: [Talk] Outlook Script

[Barker-Lacerda , Michelle]

Title: Message

I'll check with our Exchange engineer. It probably involves disabling that security warning - which they probably won't want to do.

 

Thanks anyway,

Michelle

 

 

-----Original Message-----
From: Corinna [mailto:[EMAIL PROTECTED]
Sent: Wednesday, May 05, 2004 11:58 AM
To: [EMAIL PROTECTED]
Subject: RE: [Talk] Outlook Script

The script will run and the only way around that security is by using exchange server. Your administrator can make adjustments at the exchange server, unfortunately I do not recall what that change is but your administrator may know. Otherwise I can do some hunting around to find the info for you.

 

Thanks,

Corinna Robertson

 

Boston Software Systems

[EMAIL PROTECTED]

www.bostonworkstation.com

The Essential Tool for Healthcare Integration

866-653-5105 ext. 8

508-653-5105

 

---

From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Barker-Lacerda , Michelle
Sent: Wednesday, May 05, 2004 11:43 AM
To: [EMAIL PROTECTED] COM ([EMAIL PROTECTED])
Subject: [Talk] Outlook Script

Hi,
Has anyone been able to get a script to send an email from MS Outlook 2k2 running on an Exchange Server 2k? I know there's been a lot of talk about sending emails via a script, and I was able to use the code snippet from the archives, but I can't get the script to deal with the security warning from Outlook. I've tried using Activate "caption" but BWS never gets past the .Send command. If I try to step through the script debugging it, when I get to the point that the Outlook warning message comes up I get the BSS65 message below (An action cannot be completed because a component (Inbox - Microsoft Outlook) is not responding. Choose "Switch To" to activate the component and correct the problem.)

<<...OLE_Obj...>>

Dim strFile, strRec, strCount, strEmail As String
Dim F As Integer
                                                                 
Sub SendEmail()
Dim olApp, olItem As Object
Dim strFile, strRec, strEmail, strDoctor As String
Dim F As Integer

F = FreeFile
strFile = "C:\queued.prn"
Open strFile For Input As F

Do Until EOF(F)
   Line Input #F, strRec
   strEmail = Trim$(Mid(strRec, 27, 30))
   strCount = Trim$(Mid(strRec, 1, 2))
  
   Set olApp = CreateObject("Outlook.Application")
   Set olItem = olApp.CreateItem(0)

     With olItem
        .To = strEmail
        .Subject = "You have documents to sign"
        .Body = "You have documents ready to sign in your E-Signature Queue."
        .Send
        Activate "Microsoft Outlook"
        Tab_ ""
        Tab_ ""
        Enter
     End With
Loop

Set olApp = Nothing
Set olItem = Nothing

End Sub

Thanks
Michelle

617-665-3432
617-546-7770 pgr.
Clinical Application Analyst
CHA Information Technology
[EMAIL PROTECTED]