Mail atan macro hk..

[search77]

Merhaba Arkadaşlar,

Ekli örnek dosyamda bilgileri ben giricem, tuşa bastığımda mail atan macro hakkında yardımlarınızı rica ederim.

Çok basit gözüküyor ama uğraştım yapamadım

Şimdiden çok çok tşk ler.

Saygılarımla.

 

[askm]

Aşağıdaki linki inceleyin.
http://www.excel.web.tr/f48/makroyla-email-gonderme-t2119.html

 

[search77]

Öncelikle teşekkürler,

Fakat ben dosyayı eklesin istemiyorum, sadece belirttiğim alanları outlooka yazsın istiyorum.

Tekrar bakabilir misiniz?

 

[askm]

Aşağıdaki kodları kullanın.

Sub SendEmail()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = Cells(2, 4).Value
.CC = Cells(4, 2).Value
.Subject = Cells(3, 2).Value
.Body = "Sayın : " & Cells(2, 2).Value & vbLf & _
Cells(3, 4).Value

.Save
.Display  'Maile bakıp ilet dersiniz (Send kullanmak için bu satırı ya silin ya da önüne tek tırnak ekleyin.
'.Send  'Maili direkt gider (Öndeki tek tırnağı kaldırın)
End With
Set NewMail = Nothing
Set OutApp = Nothing
End Sub

 

[askm]

Bu arada aşağıdaki kısmı unuttum.
VBE'de Tools >> References menüsünden Microsoft Outlook x.0 Object Library referansını ekledikten sonra; bu kodları bir butona ekleyin. Ya da modüle ekleyip düğmeye bağlayın.

 

[search77]

Çok teşekkürler, elinize ve emeğinize sağlık