Skip to main content

Multiple email attachments

Hi
I was wondering if there was any way of attaching multiple files using Client.SendEMail?  I would like to email the output files from my script and I would like to just send one email with multiple attachments rather than multiple emails with one attachment.
Thanks
Chris

fostc Fri, 09/21/2018 - 08:35

In reply to by Brian Element

Hi Brian
When I click on the link I get an "Access Denied" message.
Regards
Chris

fostc Tue, 09/25/2018 - 05:21

Hi Brian
Is there any reason why I can't access the post via the link?  I am still getting an access denied message even though I am logged in.
 
Many thanks
Chris

Brian Element Tue, 09/25/2018 - 07:14

In reply to by fostc

Hi Chris, thanks for the reminder.  We had some severe weather here last Friday that caused lots of problems and I had forgotten about this post.  I copied it over.

 

This is an example script of how to use IDEAScript to interface with outlook.  Here is the script and the sample data file.

Sub Main
	Dim OutApp As Object
	Dim OutMail As Object
	Dim db As database
	Dim rs As Object
	Dim rec As Object
	Dim sSubject As String
	Dim sMessage As String
	Dim i As Long
	Dim count As Long
	Dim CrLf As String
	
	CrLf = Chr(10) & Chr(13)
	
	Set db = Client.OpenDatabase("outlook-Sheet1.IMD") 
		
		Set rs = db.RecordSet
			count = rs.Count
			rs.ToFirst
			For i = 1 To count
				rs.next
				Set OutApp = CreateObject("Outlook.Application")
					Set OutMail = OutApp.CreateItem(0)

						Set rec = rs.ActiveRecord
						sSubject = "This email is for " & rs.ActiveRecord.GetCharValue("FIRST_NAME") & " " &  rs.ActiveRecord.GetCharValue("LAST_NAME") 
						sMessage = "Dear " & rs.ActiveRecord.GetCharValue("FIRST_NAME")  & CrLf & CrLf 
						sMessage = sMessage & "This is the body of the email, this is the amount " & rs.ActiveRecord.GetNumValue("AMOUNT") 
						sMessage = sMessage & " and this is the text " & rs.ActiveRecord.GetCharValue("TEXT") 
						On Error Resume Next
						' Change the mail address and subject in the macro before you run it.
						'MsgBox rs.ActiveRecord.GetCharValue("EMAIL_ADDRESS") 
						OutMail.To = rs.ActiveRecord.GetCharValue("EMAIL_ADDRESS") 
						OutMail.CC = ""
						OutMail.BCC = ""
						OutMail.Subject = sSubject
						OutMail.Body = sMessage
						' You can add other files by uncommenting the following line.
						'.Attachments.Add ("C:\test.txt")
						' In place of the following statement, you can use ".Display" to
						' display the mail.
						OutMail.Display
						OutMail.Send   
						On Error GoTo 0
					Set OutMail = Nothing
				Set OutApp = Nothing

			Next i
		Set rec = Nothing
		Set rs = Nothing
	Set db = Nothing
		
End Sub

 

marconb10 Mon, 04/13/2020 - 12:31

In reply to by Brian Element

Hi Brian! I hope you and your family are doing well! If you don't mind, would you help me with a little thing today? the line "OutMail.send" is not working. It's not sending the e-mail. (I can even comment this line).I have 15 different e-mails that I have to send, and using this code, it creates these 15 e-mails, but I still have to click in each "Send" button inside Outlook...  doing it 15 times it's not good haha, so I would like to check with you if something changed in this "OutMail" that it's not sending automatically.
Thank you!!

Brian Element Mon, 04/13/2020 - 13:18

We had this problem on a test back in January.  What fixed it was actually just updating to the latest version of outlook and then it worked.  You mind making sure you have the latest update installed and try again.

The website encountered an unexpected error. Try again later.