Hi
I wonder if this is possible
I have an advanced filter that displays email addresses (inluding ; separator) from Cell N8 to a max of 120 records depending on filter.
What I am trying to do is copy email address from Cell N8 down to last record in column display and copy these emails directly into Outlook To Box to send email
Is this at all possible as I cant manually type in emails and these are variables.
The code below opens up outlook ok but would be an additional bonus to have emails copied from range.
Many thanks and hope this makes sense
regards
ian
Sub StaticEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = on a sheet called "RepDetail", I want to copy range from cell N8 to last email record in row? then paste into Outlook To Box
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
I wonder if this is possible
I have an advanced filter that displays email addresses (inluding ; separator) from Cell N8 to a max of 120 records depending on filter.
What I am trying to do is copy email address from Cell N8 down to last record in column display and copy these emails directly into Outlook To Box to send email
Is this at all possible as I cant manually type in emails and these are variables.
The code below opens up outlook ok but would be an additional bonus to have emails copied from range.
Many thanks and hope this makes sense
regards
ian
Sub StaticEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = on a sheet called "RepDetail", I want to copy range from cell N8 to last email record in row? then paste into Outlook To Box
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
