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 14-05-2016, 20:01   #1
andruil
Altın Üye
 
Giriş: 26/08/2010
Mesaj: 42
Excel Vers. ve Dili:
Microsoft Office 2016 İngilizce
Varsayılan Makro ile mail gönderme konusunda yardım

Merhaba,

Aşağıdaki gibi bir kod oluşturdum. Kod şu an istediğim gibi çalışıyor fakat tek eksiğim şu;

Outlook'umda ayarlı 3 farklı mail adresi var. Ben hangi mail adresinden göndermesi gerektiğini de otomatikleştirmek istiyorum fakat eklemem gereken satırı ya da kodu bilmiyorum.

Yardımınızı rica ederim, teşekkürler şimdiden.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SendEmail()

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
    
    
    With olMail
    
    .BodyFormat = olFormatHTML
    .Display
    .HTMLBody = "Sayın İlgili," & "<br>" & "<br>" & _
    Range("B5:B5").Value & .HTMLBody
    
    
    .To = Range("B2:B2").Value
    .Subject = Range("B3:B3").Value
    
        
    End With
    
    
End Sub
andruil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-05-2016, 02:23   #2
turist
Destek Ekibi
 
turist kullanıcısının avatarı
 
Giriş: 18/11/2009
Mesaj: 3,085
Excel Vers. ve Dili:
Excel2013 English 64Bit
Varsayılan

End With satırından önce;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 .SendUsingAccount = OutApp.Session.Accounts.Item(1)
olarak ekleyin.
(1)
kısmını OutLook'taki hesaplarınızın sırasına göre belirleyebilirsiniz.
__________________
♡ Bana 1 kod öğretene 40 yıl duacı olurum. ♡
ⓣⓤⓡⓘⓢⓣ

ÖNEMLİ HATIRLATMA !!!
Sorularınıza mutlaka açıklama yazınız ve Örnek dosya ile destekleyiniz.
Dosyanızın birebir aynı, kısa boyutlu ve şifresiz olmasına özen gösteriniz.
Eğer ALTIN ÜYE değilseniz, Örnek dosyanızı; GOOGLE DRIVE,YANDEX DISK,DOSYA.TC, WETRANSFER.COM gibi dosya paylaşım sitelerine ekleyip linkini burada bildiriniz.
Sorunuzu cevaplayanlara sonucunu Forumda konu başlığınızda bildiriniz.
turist Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-05-2016, 14:44   #3
andruil
Altın Üye
 
Giriş: 26/08/2010
Mesaj: 42
Excel Vers. ve Dili:
Microsoft Office 2016 İngilizce
Varsayılan

Alıntı:
turist tarafından gönderildi Mesajı Görüntüle
End With satırından önce;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 .SendUsingAccount = OutApp.Session.Accounts.Item(1)
olarak ekleyin.
(1)
kısmını OutLook'taki hesaplarınızın sırasına göre belirleyebilirsiniz.
Buraya yazdıktan sonra araştırmaya devam ettiğimde belirttiğiniz kodu buldum. Denediğimde istediğim mailden atmama imkan sağlıyor, evet. Fakat şöyle bir durum var. Bu excel iş yerinde ortak kullanımda olan bir dosya. Kullanılan ortak email adresinin de, hangi bilgisayarda kaçıncı sırada olduğu belli değil.

Spesifik olarak adres yazılması mümkün müdür acaba?
andruil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 00:07   #4
baydeniro
 
Giriş: 26/01/2007
Mesaj: 3,385
Excel Vers. ve Dili:
Ofis 2016
Varsayılan

andruill ve turist kod için teşekkürler. Aradığım bir şeydi. Ama bende çalışmadı. Acaba referans etkisi olabilir mi ?
1) .Item(2) ve .Item(3) yazsam da Outlook ta tanımlı olan varsayılan hesabı seçiyor.
2) Display ekranı gelmeden direkt gönderim mümkün mü ?
baydeniro Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 07:50   #5
uKiGS
Altın Üye
 
Giriş: 03/03/2008
Mesaj: 76
Excel Vers. ve Dili:
2013 ingilizce
Varsayılan

Alıntı:
andruil tarafından gönderildi Mesajı Görüntüle
Merhaba,

Aşağıdaki gibi bir kod oluşturdum. Kod şu an istediğim gibi çalışıyor fakat tek eksiğim şu;

Outlook'umda ayarlı 3 farklı mail adresi var. Ben hangi mail adresinden göndermesi gerektiğini de otomatikleştirmek istiyorum fakat eklemem gereken satırı ya da kodu bilmiyorum.

Yardımınızı rica ederim, teşekkürler şimdiden.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SendEmail()

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
    
    
    With olMail
    
    .BodyFormat = olFormatHTML
    .Display
    .HTMLBody = "Sayın İlgili," & "<br>" & "<br>" & _
    Range("B5:B5").Value & .HTMLBody
    
    
    .To = Range("B2:B2").Value
    .Subject = Range("B3:B3").Value
    
        
    End With
    
    
End Sub
Merhaba,

Bende kullanıyorum böyle bir excel bendekinde olan formül bu bi deneyin isterseniz.

.SentOnBehalfOfName = "istediğinizmailadresi@mail.com"

yukarıda yazılı olan yere hangi mailden gitmesini isterseniz orayı yazabilirsiniz.

İyi çalışmalar.
uKiGS Ç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 02:37


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