Merhaba. Excel de çalışmalarımı yaptıktan sonra tekrar outlook a girip oradan yeni ileti deyip de dosyanın bulunduğu klasörden dosyayı seçmek yerine exceldeyken sırasıyla "Dosya-Paylaş-E posta-Ek Olarak Gönder" yolunu kullanıyordum. Fakat bir süredir Çok garip bir hata alıyorum ve hatanın...
...Makroyu çalıştırdığımda da aşağıdaki görselde bulunan uyarıyı alıyorum. Yardımcı olursanız sevinirim.
Görsel
Sub Mail_Selection_Range_Outlook_Body()
Sayfa3.Unprotect Password:="12345"
Dim aktifSayfaAdi As String
aktifSayfaAdi = ActiveSheet.Name
Dim hedefSayfaAdi As String...
Resmi tam göremeiyorum ama, outlook daki problem gibi olabilir.
Antivirüs yok ise, sistemde üctretsiz de olsa bir antivirüs yüklü olması problemi çözebilir.
Belki işinize yarayabilir..
https://support.microsoft.com/tr-tr/office/klasik-windows-i%C3%A7in-outlook-ta-e-posta-hesab%C4%B1n%C4%B1-kald%C4%B1rma-veya-silme-1fa900ae-6dc8-468c-b754-10292f7ee47a
Arkadaşlar sayın hocalarım. Office 365 aldım, kullanıcı adıyla alındığı için giriş yaptım. Masaüstü bilgisayarda sorum yoktu ama laptopumda aşağıda fotoğrafta olduğu gibi 3 e-posta oldu (Birisi işim). Kaldırmaya çalışıyorum hata veriyor. Orada gözükmesini istemiyorum. Nasıl sağlarım? Ayrıca...
...' You need to use this module with the RangetoHTML subroutine.
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, and Outlook 2010.
Dim rng As Range, mailRng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim...
...Integer
Dim onem As Integer
Dim s1 As Worksheet
Dim S2 As Worksheet
Dim S3 As Worksheet
Dim S4 As Worksheet
Dim Outlook As Object
Dim yeni As Object
Set s1 = Sheets("AKTAR")
Set S2 = Sheets("GENEL İŞYERİ")
Set S3 = Sheets("İŞYERİ İLETİŞİM")...
Merhabalar,
Daha önce açılmış olan konu başlığı altındaki https://www.excel.web.tr/threads/secilen-huecreleri-mail-goendermek.161860/#post-881124 gönderisinden aldığım kod ile seçilen hücreleri mail gönderebiliyorum. Ancak excel de mail gönderme butonuna her bastığımda aşağıdaki görseldeki...
...kod bloku ile ayrıca mail gönderebilirsiniz.
Ayrı Mail:
Sub Gonder()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = "hedef@hedefadresi.com.tr"
.CC = "bilgi"
.BCC = "gizli bilgi"...
...As Range, cellTarih As Range
Dim acilAdres As String, acilDegilAdres As String
Dim mailKonu As String, mailIcerik As String
Dim outlookApp As Object
Dim outlookMail As Object
Dim sonSatir As Long
Set ws = ThisWorkbook.Sheets("LİSTE")
sonSatir =...
...As Worksheet
Dim rngTarih As Range, cellTarih As Range
Dim rngMail As Range
Dim mailKonu As String, mailIcerik As String
Dim outlookApp As Object
Dim outlookMail As Object
Dim sonSatir As Long
Set ws = ThisWorkbook.Sheets("Sayfa1")
sonSatir =...
' E-posta gönder
With OutlookMail
.To = EmailAddress ' Alıcı e-posta adresi
.Subject = EmailSubject
.Body = EmailBody
.Display ' E-postayı göster
'.Send ' E-postayı otomatik göndermek için bu satırı kullanabilirsiniz
End With
Kırmızı ile işaretlediğim yerde kodu yazan arkadaşımız otomatik...
ayn
Merhaba aynı işlemi yaptım ama. outlook açtı tüm maillere gönder penceresi açtı ve bekkiyor. otom gönderme yapmadı tek tek gönder tuşuna basmam gerekli maalesef.
İsteğimi tam olarak açıklayamadım sanırım. Görsel destek olarak bir resim yükledim. Bu resim üzerinden anlatacak olursam;
Bir proje excel de oluşturulacak. Projenin içinde A, B, C, D ve E iş tanımları olacak. İş tanımları durumlarının her biri yönetici tarafından veri doğrulama listesinden açık...
...mail adresleri
c sütununda konunun ismi,
d sütununda açıklama ,
e sütununda içerik gelecek iekilde oluşturun.
Sub SendTopicInfoEmails()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim RecipientName As String
Dim EmailAddress As String
Dim Topic As String
Dim Description As String
Dim...
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.