HI
I send daily stats to my dirctors via sms using email. I now need to send to all my reps awell. the problem is our SP only allows 5 messages per day per account. at the moment I have to manual select the mesage and send using a different account
I am using the following code
Sub EmailSend()
Dim ol As Object
Dim MailSendItem As Object
Set ol = CreateObject("Outlook.Application")
Set MailSendItem = ol.CreateItem(olMailItem)
With MailSendItem
.To = "martincell;andycell"
.Subject = "Daily Stats"
.Body = Cells(7, 1) & " " & Cells(7, 2) & vbCrLf & Cells(8, 1) & " " & Cells(8, 2) & vbCrLf & Cells(9, 1) & " " & Cells(9, 2) & vbCrLf & Cells(10, 1) & " " & Cells(10, 2)
.Importance = 2
.Send
End With
Set ol = Nothing
Set MailSendItem = Nothing
End Sub
Any One have any Ideas
Thanks
I send daily stats to my dirctors via sms using email. I now need to send to all my reps awell. the problem is our SP only allows 5 messages per day per account. at the moment I have to manual select the mesage and send using a different account
I am using the following code
Sub EmailSend()
Dim ol As Object
Dim MailSendItem As Object
Set ol = CreateObject("Outlook.Application")
Set MailSendItem = ol.CreateItem(olMailItem)
With MailSendItem
.To = "martincell;andycell"
.Subject = "Daily Stats"
.Body = Cells(7, 1) & " " & Cells(7, 2) & vbCrLf & Cells(8, 1) & " " & Cells(8, 2) & vbCrLf & Cells(9, 1) & " " & Cells(9, 2) & vbCrLf & Cells(10, 1) & " " & Cells(10, 2)
.Importance = 2
.Send
End With
Set ol = Nothing
Set MailSendItem = Nothing
End Sub
Any One have any Ideas
Thanks