Excel - vba kode til mail csv fil

Hej - Håber I kan hjælpe !

Jeg har lavet en xls fil som skal sende en csv fil på mail.

Det fungere fint med undtagelse af at der sætts " " om recorden, hvis teksten indeholder æ,ø eller å.

Eks :

18000~150608161106~21011~hammer 1 stk. rustfri~
"18001~150608161106~21012~høvl slebet, 1 stk.~"


CSV filen genereres uden at den gemmes andre steder end i mailen.

Den kodedel der udfører jobbet ser således ud :

With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
   
    TempFileName = "OrderLines_20_" & Range("orderno").Value
    Mailtopic = "Orderfile_lines from " & Range("seller").Value
   
    Set Sourcewb = ActiveWorkbook

    Sheets("OL_mail").Copy
    Set Destwb = ActiveWorkbook

    With Destwb
        FileExtStr = ".csv": FileFormatNum = 6
    End With

    'Save the new workbook/Mail it/Delete it
    TempFilePath = Environ$("temp") & "\"
    'TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


Jeg har overvejet om det "blot" er FileFormatNum = 6 der skal ændres, men har ikke kunne finde noget på det.

Håber der er en der er skarp :-)

Mvh

Jens