Sending email to using different accounts

[Rasmas]

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

 

[Von Pookie]

Are you using the same email program for all of them?

If I remember correctly, in Outlook Express (and probably Outlook itself), if you add them all to the Accounts lists, you should be able to choose which address is used to send it from a drop down list when you open a new email message.

Of course, if this doesn't apply, just disregard it

Hope it helps,

 

[Rasmas]

HI

Yes you can But I have a Makro from Excel sending it to Outlook, I what to specify the account in excel so I dont have to sit and manual change the account to be used in outlook

RASMAs