Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-07-2007, 10:58   #1
norepinefrin
 
Giriş: 29/10/2006
Mesaj: 33
Excel Vers. ve Dili:
Excel 2003 İngilizce
Varsayılan Outlook Da Yeni Mesaj Macrosu

Arkadaşlar Microsoft Outlook da üstteki toolbar a bastığımda "Inbox altındaki Mail kalıplar klasöründen şu mesajı seçip yolla" diyebileceğim bir tuş koymak istiyorum, daha önce burada benzer bir soru sorulmuş, ama o yeni mesaj yollamak için şeklinde sorulmuş ve Haluk tarafından cevabı verilmiş ancak o örneği kendi istediğim şekilde uyarlamak istediğimde çalışmıyor bunun nedeni de bendeki mesajın body kısmının çok uzun olması, vbscript içine o uzun yazıyı koymak isteyince yazılanları da kod gibi algılıyor ve hata veriyor, ben de visual basic bilgim hiç olmadığından kendime uyarlayamadım, yardımcı olabiliecek arkadaşlara şimdiden çok teşekkürler..

not: daha önce verilen örnek şu şekilde;

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


Bendeki sorun ise Body kısmındaki "Deneme e-mail'i .... " yazısını uzattığımda ve bi satır indiğimde vb bunu kod olarak algılıyor..
norepinefrin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-07-2007, 11:23   #2
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,086
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Test()
    Dim OutApp As Outlook.Application
    Dim NewMail As Outlook.MailItem
    Dim MyBody As String
    
    MyBody = "Deneme e-mail'i .... " & vbCrLf _
            & "Test amacli gonderilmistir." & vbCrLf _
            & "Lutfen cevap vermeyin..."
            
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
    
    
    With NewMail
        .To = "raider@hotmail.com"
        .Subject = "Deneme"
        .Body = MyBody
        .Save
        .Display
    '.Send
    End With
    
    Set NewMail = Nothing
    Set OutApp = Nothing
End Sub
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-07-2007, 14:34   #3
turgaykadiroglu
 
Giriş: 20/10/2006
Mesaj: 60
Excel Vers. ve Dili:
2003 İngilizce / Türkçe
Varsayılan

kodla dosya da ekleyebiliyor muyuz ?
turgaykadiroglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-07-2007, 15:32   #4
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,086
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Alıntı:
turgaykadiroglu tarafından gönderildi Mesajı Görüntüle
kodla dosya da ekleyebiliyor muyuz ?
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Test()
    Dim OutApp As Outlook.Application
    Dim NewMail As Outlook.MailItem
    Dim MyBody As String
 
    MyBody = "Deneme e-mail'i .... " & vbCrLf _
            & "Test amacli gonderilmistir." & vbCrLf _
            & "Lutfen cevap vermeyin..."
 
    Set OutApp = New Outlook.Application
    Set NewMail = CreateItem(olMailItem)
 
 
    With NewMail
        .To = "raider@hotmail.com"
        .Subject = "Deneme"
        .Body = MyBody
        .Attachments.Add "D:\TestFolder\TelefonDefteri.xls"
        .Save
        .Display
    '.Send
    End With
 
    Set NewMail = Nothing
    Set OutApp = Nothing
End Sub
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-07-2007, 15:42   #5
turgaykadiroglu
 
Giriş: 20/10/2006
Mesaj: 60
Excel Vers. ve Dili:
2003 İngilizce / Türkçe
Varsayılan

çok teşekürler
turgaykadiroglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-07-2007, 12:04   #6
norepinefrin
 
Giriş: 29/10/2006
Mesaj: 33
Excel Vers. ve Dili:
Excel 2003 İngilizce
Varsayılan

ben de çok teşekkür ederim, dün yazamadım
norepinefrin Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 05:56


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden