Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-12-2017, 07:49   #1
dgdizayn
 
Giriş: 07/03/2011
Şehir: Ankara
Mesaj: 23
Excel Vers. ve Dili:
OFFİCE 2013 EN
Varsayılan (ÇÖZÜLDÜ) Excel den maile tabloyu aktarsın ama göndermesin

Merhabalar,

Aşağıdaki eklediğim mail kodu gayet güzel çalışıyor. Tabloya verileri girip to ve cc bölümüne mailleri eklediğimde göndere tıklayınca mail gidiyor. Fakat benim istediğim gönder dediğimde mail içerisine eklesin ama göndermesin. Çünkü içerisine ekler ekleyip ondan sonra kendim göndermek istiyorum. Bunu yapmak mümkün mü.
Teşekkürler

Alıntı:
Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 2) = "" Then GoTo HATA

On Error GoTo HATA

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

saydir = WorksheetFunction.CountIf(Range("c:c"), "<>") + 1
DinamikAlan = "D2:" & "G" & saydir
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)

Set Sayfa = ActiveSheet

With Alan

.Parent.Select
Set daralan = ActiveCell

.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = ""

With .Item
.To = Cells(2, 2)
.CC = Cells(3, 2)
.Subject = Cells(1, 2)
.bcc = ""
.Send
End With

End With

daralan.Select
End With

Sayfa.Select

HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With


End Sub


Bu mesaj en son " 07-12-2017 " tarihinde saat 10:39 itibariyle dgdizayn tarafından düzenlenmiştir....
dgdizayn Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 07:57   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

.send kısmını .display olarak değiştirin.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 07-12-2017, 10:38   #3
dgdizayn
 
Giriş: 07/03/2011
Şehir: Ankara
Mesaj: 23
Excel Vers. ve Dili:
OFFİCE 2013 EN
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
.send kısmını .display olarak değiştirin.
Süpersin çok teşekkür ederim. Bende open olarak değiştirdim salladım ama olmadı. Display çok işime yaradı.Tekrar tşkler konu çözüldü
dgdizayn Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 10:40   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,693
Excel Vers. ve Dili:
2010-2016
Varsayılan

Rica ederim. Kolay gelsin.
__________________
excel 2010- türkçe
askm Çevrimiçi   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 18:17


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- 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- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden