Sending .xls attachment file through vb6 shows .dat file in outlook

See more:

VB6

Dear Sir


I am sending mail from vb 6 using my gmail account with excel attached file to my another account in outlook but it shows my .xls.dat file and in my sent items of gmail it also not open as excel file.
i am using this following code


Set mg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set fn = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
fn.Item(schema & "sendusing") = 2

fn.Item(schema & "smtpserver") = Text4.Text "smtp.gmail.com"
fn.Item(schema & "smtpserverport") = Text3.Text '25 ' 465
fn.Item(schema & "smtpauthenticate") = 1
fn.Item(schema & "sendusername") = "" & Trim(Text1.Text) & ""
fn.Item(schema & "sendpassword") = "" & Trim(Text2.Text) & ""

With mg
.To = txtto
'.To = "" & res("email") & ""
.From = " <br><" & Trim(Text1.Text) & "><br>"
.Subject = "Sub: Quotation For the supply of CARTONS with respect of following specification:<br>"



FILELP1 ="D\file.xls"
.Organization = "Duke Infosys"
If FILELP1 <> "" Then
.AddAttachment "" & FILELP1 & " "
End If
.ReplyTo = "" & Trim(Text1.Text) & ""
Set .Configuration = iConf
SendEmailGmail = .send
End With