outlook'ta macro

[MURATT]

merhaba bir konuda yardım rica edicektim.

Outlook'ta mesajımızı yazacağımız sahaya örnek "merhaba" yazacağız.
macro yapmak için Kodu VB editöre nasıl yazabiliriz?
Saygılar.

[Haluk]

Bunu bir deneyin ...

[vb:1:3a54323409]Sub Test()
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)

With NewMail
.To = "raider@hotmail.com"
.Subject = "Deneme"
.Body = "Deneme e-mail'i .... "
.Save
.Display
'.Send
End With

Set NewMail = Nothing
Set OutApp = Nothing
End Sub
[/vb:1:3a54323409]

[MURATT]

merhaba ilginiz için çok teşekkürler yalnız mailim sanırım yanlış anlaşıldı.
istediğim bu kadar komplike bir şey değil ...

ben sadece macroyu çalıştırdığım zaman mesajı yazacağım text sahasına örnek herhangi bir şey mesela "merhaba" yazsın istiyorum.VB bilgim fazla yok outlook editöre nasıl yazacağımı bilmiyorum. ben zaten sonra yazının içeriğini değiştireceğim.Excel'de record macro var ama outlook ta böyle bir şey yok.
Saygılar...

[MURATT]

merhaba ilginiz için çok teşekkürler yalnız mailim sanırım yanlış anlaşıldı.
istediğim bu kadar komplike bir şey değil ...

ben sadece macroyu çalıştırdığım zaman mesajı yazacağım text sahasına örnek herhangi bir şey mesela "merhaba" yazsın istiyorum.VB bilgim fazla yok outlook editöre nasıl yazacağımı bilmiyorum. ben zaten sonra yazının içeriğini değiştireceğim.Excel'de record macro var ama outlook ta böyle bir şey yok.
Saygılar...
yardımcı olabilirmisiniz?
teşkkürler...

[Haluk]

1) MS Outlook ekranında "Tools >> Macro >> Security" menüsü ile gelen pencerede makro güvenlik ayarını "Medium" olarak ayarlayın.

2) MS Outlook ekranında "Tools >> Macro >> Visual Basic Editor" menusu ile editoru acin.

3) Editor penceresinde, "Insert >> Module" menusu ile yeni bir modul ilave edin.

4) Yukarıda verdigim kodlari kopyalayın ve editor penceresinde sag taraftaki buyuk ekrana yapistirin.

5) Editor penceresini kapatin ve MS Outlook ekranina donun.

6) MS Outlook ekrarninda "Tools >> Macro >> Macros" menusunu calistirin. Gelen pencerede "Test" isimli proseduru secip, calistirin.

[sinan34]

Outlook makro ile menüleri otomatik açtırabilirmiyiz ? Mesela makro ile önce Adres Defteri sonrada Bul menüsünü açtıracağımız bir kod varmı acaba ? Teşekkürler