excel mail cc de birden fazla mail adresi

Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
Merhabalar

Excelde Outlook üzerinden otomatik mail atma makro düzeneğim var.

CC tarafında normalde sabit tuttuğum mail adresi var
örneğin
.CC = "aaa@bbb.com"
şeklinde
ben bu cc de sürekli değişebilecek bir mail adreside eklemek istiyorum. onuda ilgili sheetimde bulunan I15 hücresine yazıyorum. örneğin I15 hücresinde ttt@ccc.com diye mail yazıyorum.

ben makroyu çalıştırdığım zaman CC de hem varsayılan makro düzeneğimde yazan aaa@bbb.com hemde ttt@ccc.com olsun istiyorum.

farklı kombinasyonlar denedim fakat bir türlü iki farklı mail adresini cc de tutamadım. bilgi ve yardımlarınızı rica ederim

Kod:
.To = "xxx@yyy.com"
.Subject = Range("B2")
.CC Sheet27.Range("I15").Value
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,344
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Noktalı virgül ile birleştirin. Ör:

Kod:
.CC = "aa@bb.com [SIZE=3][B][COLOR=Red];[/COLOR][/B][/SIZE] cc@dd.com"
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
anlatamadım sanırım.
vba kod içerisinde şöyle bir şey yazmam lazım benim

.CC Sheet27.Range("I15").Value & "aaa@bbb.com"

yani hem hücredeki mail adresini cc de tutucak hemde kod içerisinde yazdığım maili cc de tutacal
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,243
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Kod:
.CC = Sheet27.Range("I15").Value & "; aaa@bbb.com"
 

KARTAL133

Altın Üye
Katılım
12 Şubat 2009
Mesajlar
185
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Altın Üyelik Bitiş Tarihi
05-11-2024
Merhaba Sevgili hocalarım


Toplu mail gönderimi yapıyorum.
Her mail arasında bir süre koymak istiyorum. Bunu nasıl yap bilirim.
Örneriğin ilk mail 12:00:00 da gidecek ikici mail ile 12:00:20 gitmesi gerekmektedir bunu nasıl yapa bilirim şimdiden yardımlarınız. İçin teşekkür ederim 🙏 🙏 🙏
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,243
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Aşağıdaki satırı döngünüzün içinde uygun bir yere yazmanız yeterli olacaktır.

C++:
Application.Wait Now + TimeSerial(0, 0, 20)
 

KARTAL133

Altın Üye
Katılım
12 Şubat 2009
Mesajlar
185
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Altın Üyelik Bitiş Tarihi
05-11-2024
Teşekkürler Hocam
 
Üst