Macro til default afsender

Iøvrigt har jeg forsøgt med denne macro, men den funger ikke.

Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAccount = "Name of Default Account" Then
Set oMail = Application.CreateItem(olMailItem)
oMail.SendUsingAccount = oAccount
oMail.Display
End If
Next
End Sub

Ingen svar i over 10 dage. post lukkes.

Jeg har fundet den samme guide som du selv.
Slet alle foranstillede o i alle linjer, så tror jeg, at din macro fungerer.
Jeg opdagede det ved at kopiere hele macro`en, og dernæst indsætte den her.
/ptj_11