mail gönderme (winmail ile)

[BESST]

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

 

[BESST]

yok mu bu işten anlayan bi arkadaş, araya araya divane oldum yardım lütfen

 

[BESST]

Outlook ve smtp (örn:gmail) yöntemi ile mail gönderme

Merhabalar

Konu ile ilgili yaptığım araştırma sonucunda microsoft outlook ve smtp (örn:gmail) yöntemi ile mail gönderme seçeneklerinin bulunduğu örnek dosyayı belki benim gibi ihtiyacı olan bir arkadaş çıkar düşüncesi ile ekliyorum.
Form üzerinde bana lazım olan asıl işlem windows mail(vista) ile gönderme butonunun kodları şimdilik soru işareti olarak beklemede. Umarım onuda öğrenir sizlerle paylaşırım.

İyi çalışmalar