#1
|
|||
|
|||
Email macro to read range for .To field
Hi guys I have an email macro that creates its .To field with a long list of email addresses in a column. My problem is that it seems the .To field only seems to be able to read one cell at a time. Is there a workaround available besides using CONCATENATE? This list is for over 50 addresses and that would be very annoying.
Heres my code Code:
Sub PackagingtoMDEmail() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Call SaveAs UserForm1.Show On Error Resume Next With OutMail .To = Range("A58:A120") .CC = "" .BCC = "" .Subject = "PIN REQUEST-" & Range("C16").Value & " " & Range("N15") .Body = ActiveSheet.TextBox1 If Range("N15").Value = "***RUSH" Then .Importance = 2 .Priority = 2 End If .display .Attachments.Add ActiveWorkbook.FullName End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub |
#2
|
|||
|
|||
Hi Matt
Have a look at this link which should help you. http://www.ozgrid.com/forum/showthread.php?t=161209 Good luck. Tony |
#3
|
|||
|
|||
Thanks it worked! I appreciate it
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Macro to read word document | harishankar.selvaraju | Excel Programming | 1 | 06-14-2012 03:48 AM |
Summation where range vary using Macro | halogen_bulb | Excel Programming | 2 | 11-15-2011 05:38 AM |
Print Macro w/ Page Range? | stickyit | Outlook | 1 | 10-06-2011 09:51 AM |
Generic range for custom sort macro? | tswiers | Excel Programming | 2 | 08-11-2011 02:40 AM |
marking email as "read" until email is read on local device. | mwomack | Outlook | 2 | 07-16-2011 08:21 PM |