Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 4
Default Using SendMail through Access - Excel Automation

I have a program which uses the automation in Access to send an Excel
spreadsheet via email using the following code:

ExcelObj.ActiveWorkbook.SendMail Recipients:=ito, Subject:="PHI OCR
Report_Chain 123_022008_1111"

where ito is a variable defined by information contained in the Email field
of a recordset.

In most cases, the Email field only contains the email address of one
person. However, we have a few of our customers who want this spreadsheet to
go to more than one contact. So there are some records where this field will
contain more than one email address separated by semi-colons (i.e.
). In this case, it returns
an error stating "Unknown recipient name found in the recipient list." I've
read the help file for SendMail in Excel which indicates that I should be
able to send to multiple recipients using an array, but I'm not certain how
to do this. Could someone please assist me with an example?

Thanks!

--
-DinosRose - sometimes I think I have gotten in over my head...
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 360
Default Using SendMail through Access - Excel Automation

I use something like this to send sheets to multiple recipients in
Lotus Notes...

Recipients = VBA.Array _
")

Cliff Edwards

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 4
Default Using SendMail through Access - Excel Automation

I was able to find a solution to my problem. After reading up some more on
arrays and how to define them and working with a collegue to determine a way
to separate my string of email addresses into components within the array I
came up with the following solution (which involved changing the ito variable
to a variant ito()):

eml = rec("Issue To")

p = 0
Do
strpos = InStr(eml, ";")
If strpos = 0 Then
peml = eml
Else
peml = Left(eml, strpos - 1)
End If
ReDim Preserve ito(p)
ito(p) = peml

p = p + 1
eml = Right(eml, Len(eml) - strpos)
Loop Until strpos = 0

Anyway, wasn't sure if anyone else might find this useful, so I thought I
would share.

Thanks!
--
-DinosRose - sometimes I think I have gotten in over my head...


"DinosRose" wrote:

I have a program which uses the automation in Access to send an Excel
spreadsheet via email using the following code:

ExcelObj.ActiveWorkbook.SendMail Recipients:=ito, Subject:="PHI OCR
Report_Chain 123_022008_1111"

where ito is a variable defined by information contained in the Email field
of a recordset.

In most cases, the Email field only contains the email address of one
person. However, we have a few of our customers who want this spreadsheet to
go to more than one contact. So there are some records where this field will
contain more than one email address separated by semi-colons (i.e.
). In this case, it returns
an error stating "Unknown recipient name found in the recipient list." I've
read the help file for SendMail in Excel which indicates that I should be
able to send to multiple recipients using an array, but I'm not certain how
to do this. Could someone please assist me with an example?

Thanks!

--
-DinosRose - sometimes I think I have gotten in over my head...

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Automation to Excel from Access Bob Barnes Excel Discussion (Misc queries) 1 February 11th 08 05:18 AM
Excel/Access automation Arly Q. Excel Programming 0 June 7th 07 02:38 PM
Access automation from Excel AccessChallenged Excel Programming 2 December 31st 03 06:29 PM
Automation Excel & Access GarethG Excel Programming 6 October 3rd 03 09:14 AM
Problems with SendMail or automation of Send To Douglas Wills Excel Programming 7 October 1st 03 04:45 PM


All times are GMT +1. The time now is 08:00 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"