Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = what_address
olMail.Subject = subject_line
olMail.Body = mail_body
olMail.Send

Call sendEmail(Ark1.Range("A" & row_number), "Dette er en tester", Ark1.Range("H2"))