Merhabalar,
Outlook hesaplarımda bulunan mail adreslerini Excel'e nasıl aktarabilirim.
Outlook hesaplarımdan gönderilen ve gelen mail adreslerini SADECE MAİL adreslerini nasıl
çıkartabilirim yardımcı olabilirseniz sevinirim.
Saygılarımla
Arkadaşlar, sayın hocalarım, ben Outlook'ta mail atarken kelimeye link koyuyorum ve içinde tarih oluyor. Bizim sunucu hizmetimiz bu link
Şu şekilde bir link düşünün https://www.google.com/2023/02/20
Bu linkin her gün tarihini değiştiriyoruz. Acaba günlük otomatik değişmesinin bir yolu var mı...
Aslında Outlook konusu ama buradan başka sorabileceğim yer yok. Belki bilen bir hocamız çıkar.
Biz işyerinde müşterilere Outlook ile mail atıyoruz. Konu bölümüne tarihi yazıyoruz. Ve aşırı çok müşteri var.
Acaba Konu bölümündeki tarih güncellemek mümkün mü?
Hani Excel'deki =Bugün() gibi bir...
...var. Excelin içinde ki kişinin; adı soyadı, mail adresi hepsi belli ve ben her seferinde ayda 2-3kere bu kişilere tek tek kopyalayıp sonra outlooka girip mail gönderiyorum.
bunu otomatize edebileceğim bir uygulama, formül, yöntem var mıdır?
desteklerinizi rica ederim.
örnek bir tablo...
...Dim OutApp As Object
Dim OutMail As Object
Dim table As Range
Dim pic As Picture
Dim ws As Worksheet
Dim wordDoc
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Tabloyu resme dönüştürme
Set ws = ThisWorkbook.Sheets("Rapor")
Set table =...
...= Nothing
Set rng = ActiveSheet.UsedRange
Set rng = Sheets("rapor").UsedRange 'Gönderilecek sayfa ismi
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC =...
Gönderim öncesi outlook u bir defa açmak için bu kodu kullanabilirsiniz.
Açma sonrası gönderimlerinizi yaparsınız.
'https://stackoverflow.com/questions/33328314/how-to-open-outlook-with-vba'
Sub outlok_ac()
Dim oOutlook As Object
On Error Resume Next
Set oOutlook = GetObject(...
...gönderimi yapabiliyorum.
2 husus var takıldığım.
1.si
'.send işlevini aktif yapıyorum. Gönderim gerçekleşmiyor ekrana hata geliyor.
2.si
Outlook programı hiç açılmamışsa eğer; (otomatik send aktif değil)
Makro ile gönderim çalışınca ekrana maili yazma ekranı açılıyor. İçinde...
...As Object, Yeni_Mail As Object, Say As Integer, Mesaj As String, myLo As ListObject
On Error Resume Next
Set Uygulama = GetObject(, "Outlook.Application")
On Error GoTo 0
If Uygulama Is Nothing Then Call Shell("Outlook.exe", vbHide)
Set Uygulama =...
...kişilerin hepsine mail atacak kodu araştırmalarına rağmen bulamadım. Yardımlarınız için teşekkürler.
Sub GirisGonder()
Dim MailApp As Outlook.Application
Set MailApp = CreateObject("Outlook.Application")
Dim MailGonder As Outlook.MailItem
Set MailGonder = MailApp.CreateItem(MailItem)...
@Erdem Akdemir ve @Zeki Gürsoy bey klasörde en eski maili taşımadan gelen yeni mailleri arsiv klasörüne taşımak için nasıl bir kod yazmalı
Outlook da "Bitenler" klasörüme düşen mailleri okundu yaparak "Arsiv" klasörüme taşımak, yardımcı olabilir msiniz çok teşekkür ederim
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.