send excelark til flere emails

Jeg har et ordreark der udfyldes.
ordreafgiver skal angive ordreid samt et notat og egen email i dialogbokse. disse data skal gemmes i dertilhørende variabler og derefter udgøre emailens subject, messagebody og selve emailen der sendes til. derudover skal ordrearket samtidig sendes til 2 fast angivne mails.

Dim xsubjekt As String
Dim xmessage As String
dim xmail as string

xsubjekt = InputBox("skriv TN-nummer: ")
xmessage = InputBox("skriv teksten, i mailen, som du ønsker at angive her: ")
xmail = inputbox("skriv din email her: ")

    Workbooks("IDE.XLS").HasRoutingSlip = True
With Workbooks("IDE.XLS").RoutingSlip
    .Delivery = xlOneAfterAnother
    .Recipients = Array("df@xxx.com", "xsd2xxx.com" , "xmail")
    .Subject = xsubject
    .Message = xmessage
End With
Workbooks("IDE.XLS").Route


ovenstående virker ikke ordentligt. xmail bliver ikke læst og der sendes ikke til alle 3 mails samtidigt.

Nogen der kan hjælpe?