RE: [Talk] emailing within a script question

[Zimmerman, Scott]

Hi Tom, I use the following for sending email via Outlook.  Try it and see if it still generates the message.     Function SendEmail(pSubject As String, pBodyLine As String, pEmailAddress As String, Optional pAttachment As String) 'set an object reference to Microsoft Outlook object  Dim objOutlook As New Outlook.Application  Dim objOutlookMsg As Outlook.MailItem    On Error GoTo err_handler_send_email    ' ------- Create new message -------------  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)    With objOutlookMsg    .To = pEmailAddress    .Subject = pSubject    .Body = pBodyLine    If Not Trim(pAttachment) = "" Then         .Attachments.Add pAttachment     End If    '.Display  'to show message    .Send      'to send message  End With    Set objOutlookMsg = Nothing  Set objOutlook = Nothing  Exit Function   err_handler_send_email:  MsgBox Err.Description End Function -----Original Message----- From: Johnson, Thomas [mailto:[EMAIL PROTECTED] Sent: Friday, January 02, 2004 4:19 PM To: '[EMAIL PROTECTED]' Subject: RE: [Talk] emailing within a script question Good Afternoon All, I have been working on a script to send an Outlook/Exchange e-mail if certain conditions apply in Meditech Client Server 5.3 related to background jobs. I don't know if what is happening is exactly what Corrina Robertson reported or not. What happens to me is I get an Outlook dialog box stating A program is trying to automatically send-email on your behalf. Do you want to allow this? If this is unexpected, it may be a virus and you should choose "No". If I click yes then the e-mail is sent and the script completes but that defeats the automation. I have asked a few of our IS folks and one thought it could be related to not using an Outlook profile. I don't know how to identify what profile should be used in the script or if that is even the problem.   If anyone has thoughts about this please feel free to comment. I have asked about the possible use of ActivEmail that Neil Carman had mentioned but we need to exhaust all Outlook possibilities first. Thanks   Tom   Thomas P. Johnson [EMAIL PROTECTED] Core Clinical Application Analyst Provena Health Information Services (815) 730-2896   Important Confidentiality Notice: This message and any attachments are confidential and may be protected by legal privilege.  If you are not the intended recipient, be aware that any disclosure, copying, distribution, or use of this message or any attachment is prohibited.  If you have received this message in error, please notify us immediately by returning it to the sender and deleting this copy from your system.  Thank you.     -----Original Message----- From: Corinna Robertson [mailto:[EMAIL PROTECTED] Sent: Tuesday, December 30, 2003 11:27 AM To: [EMAIL PROTECTED] Subject: RE: [Talk] emailing within a script question   Just wanted to update you and thank you for the link. I downloaded and am using this product. It works great! Thanks again.   Thanks, Corinna Robertson   Boston Software Systems [EMAIL PROTECTED] www.bostonworkstation.com The Essential Tool for Healthcare Integration  866-653-5105 x 8 603-598-5122     From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Neil Carman Sent: Wednesday, December 10, 2003 8:37 PM To: [EMAIL PROTECTED] Subject: Re: [Talk] emailing within a script question Sorry, I guess the formal name is ActivEmail, anyway, here is the link to the company's web site (ActivExperts). http://www.activexperts.com/activemail/ While I was there, I checked the pricing.  It is $149 for 10 licenses or roughly $15 each.  You can download a fully functional 30 trial copy to make sure it will do what you want before you purchase. We've been using it for over a year to email and /or page us when one of our Boston Software scripts crashes.  One other thing, you have to create the object before you can use it. Declarations Section Public aeObject As AEMAILLib.SmtpMail Code section:  (I put it in the form_load section) Set aeObject = CreateObject("ActivXperts.SmtpMail") Corinna Robertson wrote: Thanks Neil, do you have a link I can't seem to find this.   Thanks, Corinna Robertson   Boston Software Systems [EMAIL PROTECTED] www.bostonworkstation.com The Essential Tool for Healthcare Integration  866-653-5105 x 8 603-598-5122     From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Neil Carman Sent: Friday, December 05, 2003 12:12 AM To: [EMAIL PROTECTED] Subject: Re: [Talk] emailing within a script question I don't use Outlook to send email.  I use a program called Aemail.  It is really easy to use.  After installing the dll just add a reference to it in your VB project and you're ready to go.  The email is sent directly to the smtp server.  You can also attach files to the emails.  Aemail is shareware so you can try it first to make sure you don't have any firewall or other issues.  Normally, a firewall doesn't affect outgoing traffic.  We bought 10 licenses last year for $110.00.  For $11.00 it is well worth it if you want to send emails from a VB program. Below is sample VB code to send an email using Aemail. Private Sub SendEmail()     aeObject.Clear     aeObject.HostName = "smtp-server.GenHosp.com"     'You can use the IP address of the smtp server or the server name if you are running DNS     aeObject.FromAddress = "[EMAIL PROTECTED]"     If SEAup Then         'Only send regular email - Script is running         aeObject.Subject = Status         aeObject.AddTo "[EMAIL PROTECTED]", ""         aeObject.Body = TxtMsg & vbCrLf & Response & vbCrLf & "Tests Completed =" & Str(TestNum)         aeObject.AddAttachment "c:\temp\mydocument.doc"     Else         'Send email and Page Cell Phone - Script crashed         aeObject.Subject = Status         aeObject.AddTo "[EMAIL PROTECTED]", ""         aeObject.AddTo "[EMAIL PROTECTED]", ""         aeObject.Body = TxtMsg     End If     aeObject.Send     txtStatus.Text = Status & "  " & Format(Now, "hh:nn am/pm") & "  Err=" & aeObject.LastError End Sub If you have any other questions, give me a call. Corinna Robertson wrote: I have a script that will email files using outlook, problem is I have an outlook/exchange client and it appears I need to be logged in to get it to send email. If I am not logged in, even though I am passing the user name & password I am getting an error. Does anyone have any ideas as to what I need to do to send an email without logging in to exchange?   Thanks,   Corinna   Neil Carman Director Technical Development Manigault & Associates LLC http://www.m-allc.com Work: (805) 680-5601 Fax: (714) 968-5632 -- Neil Carman Director Technical Development Manigault & Associates LLC   http://www.m-allc.com Work: (805) 680-5601 Fax:  (714) 968-5632