Gönderdiğiniz kodlar gmail ile gönderim için sanırım , fakat benim bilgisayarımdaki mevcut varsayılan mail programı (winmail)pop3 hesabım ile gönderim yapmam gerekiyor. Mesela şu an yapmaya çalıştığım işlemi Microsoft Outlook ile uygulayabiliyorum örnek kodlar aşağıda ;

Fakat winmail yada outlook express ile yapamıyorum. Bir çok araştırma yaptım sonuç olarak bir ipucuna rastlayamadım, sanmıyorum ama ya bu işlem çok kolay hep gözden kaçıyor ya da imkansız !


Private Sub gonder_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "tablo1", Application.CurrentProject.Path & "\ornek.xls", sayfa1
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "tablo2", Application.CurrentProject.Path & "\ornek.xls", sayfa2

Dim appOutlook As New Outlook.Application
Set msg = appOutlook.CreateItem(olMailItem)
With msg
.To = "mail@adresim"
.Subject = "strSubject"
.Body = "strBody"
.Attachments.Add Application.CurrentProject.Path & "\ornek.xls" .Display

End With


End Sub