Åbne standard mail klient/tilføj emne

Sådan gøres det i VBA
Sub Send_via_Outlook()
Dim Vedhæft As String
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
Vedhæft = "C:/minfil.txt"
With olNewMail
    .Recipients.Add "kabbak@tiscali.dk"
    '.CC = ""
    '.BCC = "Evaluering"
    .Subject = "Ny Fil"
    .Body = "Hej " & C & Chr(13) & " hermed fremsendes ny fil"
    .Attachments.Add Vedhæft
    .Save
    .Display
    .Send
End With
Set olNewMail = Nothing
Set olApp = Nothing
End Sub

Under Tools / References skal sætte flueben i microsoft outlook x.0 object library

Hva så hvis man har en anden standard mail client end lige Outlook?

Lukket. Hvis du vil have point så læg en kommentar!