BESST
Altın Üye
- Katılım
- 4 Ağustos 2006
- Mesajlar
- 33
- Excel Vers. ve Dili
- excel 2002
- Altın Üyelik Bitiş Tarihi
- 28-12-2027
Arkadaşlar merhaba
Accessten excel dosyasını vistanın windows mail programı ile gönderemiyorum . Aşağıdaki kod ile outlook açılıyor. ben winmail ile göndermek istiyorum. Acil yardım lütfen .
Private Sub gonder_Click()
Dim appOutlook As New Outlook.Application
Set msg = appOutlook.CreateItem(olMailItem)
With msg
.To = "aa@aa.com"
.Subject = "deneme"
.Body = "deneme"
.Attachments.Add "d:\aa.txt"
.Display
End With
End Sub
Accessten excel dosyasını vistanın windows mail programı ile gönderemiyorum . Aşağıdaki kod ile outlook açılıyor. ben winmail ile göndermek istiyorum. Acil yardım lütfen .
Private Sub gonder_Click()
Dim appOutlook As New Outlook.Application
Set msg = appOutlook.CreateItem(olMailItem)
With msg
.To = "aa@aa.com"
.Subject = "deneme"
.Body = "deneme"
.Attachments.Add "d:\aa.txt"
.Display
End With
End Sub
Son düzenleme: