[AccessD] SendObject

David.... Does "confirming that the email is good" mean confirming that the
email address is valid?....Barb


----- Original Message ----- 
From: <dmcafee at pacbell.net>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Saturday, August 06, 2005 5:14 PM
Subject: RE: [AccessD] SendObject


> If you are using Outlook 2000 SP2 or higher, you will also have to deal
with
> confirming that the email is good.
>
> Another thing you can try is blat. List member Francisco Tapia has a great
> sample on rogersaccesslibrary under other developers.  Blat runs behind
the
> scenes and we added it to the error handling. This is the way Outlook
SHOULD
> (and used to) work.
>
> David
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Barbara Ryan
> Sent: Saturday, August 06, 2005 12:23 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] SendObject
>
>
> Thanks, Andy.... I really appreciate it!.....Barb
>
>
>
> ----- Original Message -----
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Saturday, August 06, 2005 1:44 PM
> Subject: RE: [AccessD] SendObject
>
>
> > Here you go Barbara
> >
> > Don't forget to set a Reference to the Outlook Object Library and put in
> > error trapping etc
> >
> >
> >
> > Function SendOutlookMessage()
> >
> > Dim objOutlook As Outlook.Application
> > Dim objOutlookMsg As Outlook.MailItem
> > Dim objOutlookRecip As Outlook.Recipient
> > Dim objOutlookAttach As Outlook.Attachment
> > Dim objOutlookNameSpace As Outlook.NameSpace
> > Dim objOutlookItem As Outlook.ContactItem
> > Dim objOutlookFolder As Object
> > Dim lngCounter As Long
> > Dim astrRecipients() As String
> > Dim astrAttachments() As String
> > Dim strSubject As String
> > Dim strBody As String
> >
> > 'Put code in here to build up array of recipients and attachments
> >
> >
> > 'Create the Outlook session
> > Set objOutlook = CreateObject("Outlook.Application")
> >
> > Set objOutlookNameSpace = objOutlook.GetNamespace("MAPI")
> > Set objOutlookFolder =
> > objOutlookNameSpace.GetDefaultFolder(olFolderContacts)
> >
> > 'Create the message
> > Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
> > With objOutlookMsg
> >   'Add recipients
> >   For lngCounter = 1 To UBound(astrRecipients)
> >     Set objOutlookRecip = .Recipients.Add(astrRecipients(lngCounter))
> >     objOutlookRecip.Type = olTo
> >   Next
> >   'Resolve each recipients name
> >   For Each objOutlookRecip In .Recipients
> >     objOutlookRecip.Resolve
> >   Next
> >   .Subject = strSubject
> >   .Body = strBody
> >   .Importance = olImportanceNormal
> >   For lngCounter = 1 To UBound(astrAttachments)
> >     Set objOutlookAttach = .Attachments.Add(astrAttachments(lngCounter))
> >   Next
> >   .Save
> >   .Send
> > End With
> >
> > End Function
> >
> > HTH
> >
> > -- Andy Lacey
> > http://www.minstersystems.co.uk
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com