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 22-09-2016, 09:04   #11
cihan.sak
 
Giriş: 09/03/2010
Mesaj: 24
Excel Vers. ve Dili:
2013
Varsayılan

Bende kullandığım kod belirttiğim şekilde sadece örnek veriyorum A8 hücresinde yazan mail adresinini A9 hücresinde yazan konu kısmında yazan yazısı mailde mail konusu olarak yazacak bir yapı gerekiyor. bunuda ekleyebilir miyiz buraya,

Sub KOD()

'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI

yol = CreateObject("WScript.Shell").specialfolders("Desk top") & "\" & ActiveSheet.Name & "_" & Format(Now(), "yyyymmdd\_hhmm") & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
yol, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

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

Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = ""
.CC = ""
.Subject = "Konu"
.Attachments.Add yol
.Save
.Display
'.Send
End With

Set objMail = Nothing
Set objOutlook = Nothing

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

End Sub

Bu mesaj en son " 22-09-2016 " tarihinde saat 09:26 itibariyle cihan.sak tarafından düzenlenmiştir....
cihan.sak Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 09:27   #12
cihan.sak
 
Giriş: 09/03/2010
Mesaj: 24
Excel Vers. ve Dili:
2013
Varsayılan

sadece koda bunları ekleyebilir miyiz yoksa yeniden mi yazmak gerek
cihan.sak Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 11:58   #13
cihan.sak
 
Giriş: 09/03/2010
Mesaj: 24
Excel Vers. ve Dili:
2013
Varsayılan

yardımcı olabilecek arkadaş var mı
cihan.sak Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 13:00   #14
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,679
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

.To = "" yerine .To = range("A8")
.Subject = "Konu" yerine .Subject = range("A9") şeklinde...

. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....



Bu mesaj en son " 22-09-2016 " tarihinde saat 14:05 itibariyle Emir Hüseyin Çoban tarafından düzenlenmiştir....
Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 13:48   #15
cihan.sak
 
Giriş: 09/03/2010
Mesaj: 24
Excel Vers. ve Dili:
2013
Varsayılan

Alıntı:
Emir Hüseyin Çoban tarafından gönderildi Mesajı Görüntüle
. . .

.To = "" yerine .To = range("A8")
.Subject = "Konu" yerine .Subject = range("A9") şeklinde...

. . .
Hata veriyor göndermiyor.

Method to of object _mailtem failed

Bu mesaj en son " 22-09-2016 " tarihinde saat 13:55 itibariyle cihan.sak tarafından düzenlenmiştir....
cihan.sak Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 14:04   #16
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,679
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

. . .

.value da ekleyerek deneyiniz.

.To = "" yerine .To = range("A8").value
.Subject = "Konu" yerine .Subject = range("A9").value

. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 15:21   #17
cihan.sak
 
Giriş: 09/03/2010
Mesaj: 24
Excel Vers. ve Dili:
2013
Varsayılan

tşkler super oldu bu işlemi aynı şekilde fax ile gönderebiliyor muyuz.
cihan.sak Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 15:27   #18
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,679
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

Alıntı:
cihan.sak tarafından gönderildi Mesajı Görüntüle
tşkler super oldu bu işlemi aynı şekilde fax ile gönderebiliyor muyuz.
. . .

Kendi işlerimde kullanmak için Hp Laserjet 1536dnf MFP model için bu çalışmayı yapmıştım.
Diğer model ve sürücülere göre ayarlamak zor olacaktır.


. . .
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-09-2016, 21:24   #19
cihan.sak
 
Giriş: 09/03/2010
Mesaj: 24
Excel Vers. ve Dili:
2013
Varsayılan

Alıntı:
Emir Hüseyin Çoban tarafından gönderildi Mesajı Görüntüle
. . .

Kendi işlerimde kullanmak için Hp Laserjet 1536dnf MFP model için bu çalışmayı yapmıştım.
Diğer model ve sürücülere göre ayarlamak zor olacaktır.


. . .
Örnek kod çalışması var ise üzerinde çalışmak isterim. ya da kendi formatımda denemek isterim paylaşabilir misiniz.
cihan.sak Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-09-2016, 12:20   #20
cihan.sak
 
Giriş: 09/03/2010
Mesaj: 24
Excel Vers. ve Dili:
2013
Varsayılan

kimseden bir yanıt yok sanırım
cihan.sak Ç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 08:50


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 - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden