PDA

Orijinalini görmek için tıklayınız : Outlook Express ile dosya ekli mail göndermek



hesrefoglu
30.10.2004, 20:17
Merhaba Outlook Express den aşağıdaki kodlarla bilgi mail'i gönderebiliyorum. Mail'e bir dosyada eklemek için kodlarda nasıl bir değişiklik yapmalıyım.

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub

Private Sub CommandButton3_Click()
Dim eMail As String
Dim Subject As String
Dim Body As String
eMail = "*****"
Subject = "*****"
Body = "*******"
Call Mail(eMail, Subject, Body)

end sub

Serkan Düzcan
31.10.2004, 00:08
Sub gonder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = "posta"
.CC = ""
.BCC = ""
.Subject = "konu"
.Body = "Mesaj"
.Attachments.Add "C:\Documents and Settings\Serkan\Belgelerim\deneme.jpg"
.Send
End With
End Sub.send yerine, .display derseniz, gönderilmeden önce maili görebilirsiniz.

Referanslardan Microsoft OutLook X.X Object Library seçili olmalı.

Birde maili göndermeden önce sizden onay istiyor, onu aşmak içinde aşağıdaki konuyu inceleyebilirsiniz.
http://www.office.gen.tr/forum/viewtopic.php?t=2065

hesrefoglu
31.10.2004, 00:17
Verdiğiniz kodlar Outlook için geçerli ben Outlook Express ile dosya eki göndermek istiyorum