[AccessD] SendObject Attachments

Max:

That'll work as long as Outlook is loaded on the target machine.  Which I
know it isn't.  Because I had similar code in the current app but had to
disable it because of that very problem.  However,  now the client says
assume Outlook.  So that's what I'll do.  

Your code will work just fine.  Thanks.

Rocky





 	
	

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
max.wanadoo at gmail.com
Sent: Friday, November 23, 2007 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] SendObject Attachments

Hi Rocky,
Try this:


  Dim myolApp As Outlook.Application, myItem As Outlook.MailItem
  Dim strDataFileName As String, strEmailTo As String
  Set myolApp = CreateObject("Outlook.Application")
  Set myItem = myolApp.CreateItem(olMailItem)

  strEmailTo = "Rocky at databaseadvisors.com"
  strDataFileName = "c:\filename.txt"
  myItem.HTMLBody =
fFileContents("c:\Templates\General\ExplainSecureMailings.html")
  myItem.To = strEmailTo
  myItem.Subject = "Data Mailings"
  myItem.Attachments.Add strDataFileName
  myItem.Attachments.Add "c:\file2.txt"
  myItem.Attachments.Add "c:\file3.txt"  
  myItem.Attachments.Add "c:\file4.txt"
  myItem.Send

Max 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at
Beach Access Software
Sent: Friday, November 23, 2007 4:20 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] SendObject Attachments


 
Dear List:
 
Can you use SendObject to generate an email with two attachments?  If not,
in the absence of being assured that outlook is on every machine (which it
ain't in this case), is there some other simple global method to generate an
email with a couple of attachments?
 
MTIA
 
Rocky
 

 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.503 / Virus Database: 269.16.4/1146 - Release Date: 11/22/2007
6:55 PM