Send different emails for last row / and additional rows - excel

Question

I need to modify an existing macro by which I can perform the following functions:
Should have the option to enter the number of rows required to draft the email/s.
The Macro should include the last row plus the number of rows entered
(eg. I enter "5" that would mean Last row + 4 rows above it).
Individual email should be drafted for each row.
(eg. Last row would be Mailto = Colleague3#hotmail.com ; MailSubject = "EmailSubject_As_Per_the_Cell" Mailbody = "Hi Friend3, I’m inviting you for the conference being held today."
Other details are should be retained as is. (eg. Signatures etc.)
NOTE: My Excel sheet has 6-7 Columns which contains all the Project no./meeting no./Presenter Name/ Atendees name etc.
I tried tweaking with the VBA code but I'm not able to get through it.
Sub Mail_Outlook()
Dim OutApp As Object
Dim OutMail As Object, signature As String
Dim irow As Integer
Dim objItem As Object
irow = InputBox("How many Invites do you want to send?")
LastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row
If Cells(LastRow, 1).Value <> "" Then
Mailto = Cells(LastRow, 1).Offset(0, 5).Value
If Mailto = "Colleague1" Then Mailto = "Colleague1#hotmail.com"
If Mailto = " Colleague2" Then Mailto = " Colleague2#hotmail.com"
If Mailto = " Colleague3" Then Mailto = " Colleague3#hotmail.com"
End If
MailSubject = Cells(LastRow + irow, 1).Offset(0, 4).Value & " – Important Message"
MailBody = "Hi " & Cells(LastRow, 1).Offset(0, 5).Value & "," & vbNewLine & vbNewLine & _
" I’m inviting you for the conference being held today." & _
vbNewLine
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(o)
With OutMail
.Display
End With
signature = OutMail.body
With OutMail
.Subject = MailSubject
.To = Mailto
.body = MailBody & vbNewLine & signature
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Answer 1

I'm presupposing you have the Outlook stuff handled correctly... this looks like it's not actually sending any emails, just creating emails that are ready to be sent?
See if these changes bring you any closer to what you seek. This code is lightly tested but are by no means bulletproof.
Sub Mail_Outlook()
Dim OutApp As Object
Dim OutMail As Object, signature As String
Dim irow, i As Integer
Dim objItem As Object
irow = InputBox("How many Invites do you want to send?")
Set OutApp = CreateObject("Outlook.Application")
LastRow = ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row
For i = 0 To irow - 1
Set OutMail = OutApp.CreateItem(o)
If Cells(LastRow - i, 1).Value <> "" Then
Mailto = Cells(LastRow - i, 5).Value
If Mailto = "Colleague1" Or _
Mailto = " Colleague2" Or _
Mailto = " Colleague3" Then
Mailto = Mailto & "#hotmail.com"
End If
End If
MailSubject = Cells(LastRow - i, 4).Value & " – Important Message"
MailBody = "Hi " & Cells(LastRow - i, 5).Value & "," & vbNewLine & vbNewLine & _
" I’m inviting you for the conference being held today." & _
vbNewLine
With OutMail
.Display
signature = .body
.Subject = MailSubject
.To = Mailto
.body = MailBody & vbNewLine & signature
End With
Next i
Set OutMail = Nothing
Set OutApp = Nothing
End Sub