Multiple email attachments
Forums
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
Hi Chris, thanks for the
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
Hi Brian! I hope you and your
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!!
Hi Chris,
Hi Chris,
It appears you can only send one but you can access email directly through the script. Check out this post and see if it helps you out. http://ideascripting.com/content/example-sending-email-using-outlook-us…
Brian