outlook mail sayfasına makro ile cümle yazdırma

[muzzymania]

iyi günler gün içerisinde outlookta devamlı
"İyi günler
Güncel bakiye ekteki gibidir , bilginize" yazıyorum ..bunu outlookta macrolardaki gibi bir düğme ile yapmak mümkünmüdür?Outlooka da macro yazılabilirmi

bu konu genişletilirse çok faaydalı olucaktr sanıyorum Teşekkürler

 

[paranormal]

Asagidaki kod isinize yarar mi?



Private Sub Eposta_Click()
Dim OutApp As Object
Dim OutMail As Object
Call FormuTemizle

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.to = EpostaYedek
.CC = ""
.BCC = ""
.Subject = "Buraya Konu ismi"
.Attachments.Add ("")

.Body = "Buraya istediginiz, herhangi bir konuyu yazabilirsiniz."
'.Body = GetBoiler(ThisWorkbook.Path)
.Display 'or use .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[muzzymania]

hızlı geri dönüş için çok saolun lakin bunu nereye yapıştırcam

 

[paranormal]

hızlı geri dönüş için çok saolun lakin bunu nereye yapıştırcam

Outlook a yapistiramazsiniz, Outlook ve Excel ikisi Microsoft Office in ayri birer pragrami. gönderdigim kod, Excel içindir ve VBA da kullanabilirsin.

 

[muzzymania]

teşekkür ederim
bunu excelde açık bir dosyaya koyucam butona eklicem yada düğme yapıcam macroyu .Çok teşekkürler .Keşke outlooka da macro yazsaydık lotusta böyle bişi var diye biliyorum

 

[paranormal]

Lotusta olup olmadigini bilmiyorum. Fakat Outlook zaten baslibasina ayri bir program.
Ama Excelin de ayri bir özelligi var, programi siz kendiniz uyguluyorsunuz.
Isterseniz size benim yaptigim bir excel programini örnek olarak göndereyim, isterseniz kendiniz kullanin, isterseniz arkadaslariniza dostlariniza gönderirsiniz.


Yalniz prgram belki açilmayabilir onun için, Excel inizde MISSING leri kaldirmaniz lazim, kolay gelsin.