IF statements in VBA

Probably this suffices:

 
Sub Send_Mail()
  sn=ActiveSheet.Buttons(Application.caller).TopLeftCell.Offset(,-2).resize(,2)
  With CreateObject("Outlook.Application").CreateItem(0)
    .To = sn(1,1) & "@email.com"
    .Subject = sn(1,2)
    .Send
  End With
 
  ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(,1).Value = format(Now,"h: mm z")
end sub