Makro İle Mail Gönderme

Excel ile MS Outlook, Outlook Express, Gmail vb. programlar ile mail işlemleri hakkındaki bölüm.

Makro İle Mail Gönderme

İleti#1)  beozturk » 27 Haz 2018 18:09

Merhaba,

Ekte ki Excel de 11 sayfadan oluşan bir dosyam var.
Dosyamda “AraçKapama” adını verdiğim sayfa içine “KAPAMAGÖNDER” adında tuş ekledim.
Bu tuş ile A1:AL35 hücreleri arasında var olan verileri email ile ilgili kişilere göndermek için internetten araştırarak aşağıdaki kodları kullanarak makro oluşturmuştum.
Daha önce email gönderiyordum.
1) AraçKapama sayfasında “KAPAMAGÖNDER” adında tuşa bastığımda makroyu gönderirken outlook açılıyor. Gönderme izni istiyor. Onay veriyorum, takılıp kalıyor.
2) Gönderme hatası olmadan giden emaillerimde outlook arka plan renkleri gönderilmiş öğlerde mail kutusunda değişik renkler alıyor.

Konu hakkına yardımcı olabilir misiniz?

Sub CARİ_AÇILMASI()
'
' CARİ_AÇILMASI Makro
'

'
ActiveSheet.Range("A1:AL35").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = "behlul.ozturk@avm.com.tr"
.Item.CC = "behlul.ozturk@avm.com.tr"
.Item.Subject = Range("I2") & " komisyon no'lu araç kapaması hak."
.Item.Send
End With
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
beozturk
 
Kayıt: 27 Haz 2018 17:17
Meslek: Satış destek
Yaş: 33
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Makro İle Mail Gönderme

İleti#2)  Tarkan VURAL » 27 Haz 2018 22:56

Merhaba, sitemize hoş geldiniz.
Outlook tarafına kadar geliyorsa kodlar çalışıyor manasına gelir. Onay verdikten sonra mailin gitmemesi durumu pek normal değil. Antivirüs kullanıyorsanız devre dışı bırakarak deneyebilir misiniz ? Belki posta güvenlik kontrol protokollerini işliyordur.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26916
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Makro İle Mail Gönderme

İleti#3)  beozturk » 28 Haz 2018 10:53

Merhaba Tarkan bey,
ilginiz için öncelikle çok teşekkür ederim.
Bilgisayarlarımızda anti virüs kurulu, dediğiniz gibi anti virüsü devre dışı bırakarak kaldırmayı IT ile çözeceğim.
Başka arkadaşlarım da aynı Excel dosyasını kullanıyor. Onlar gönderebiliyorlar. Onların gönderdikleri ve gelen maillerin de, mail arka plan rengi beyaz olması gerekirken, her gönderilen mail de arka plan renkleri farklı farklı geliyor.
Aynı makroyu yeni Excel açıp oluşturuyorum. Gönderme hatası almadan ve arka plan rengi değişmeden gidiyor.
Kullandığımız Excel dosyasını yeni açıp baştan oluşturdum. Aynı sorunu yine aldım.
Kullanıcı avatarı
beozturk
 
Kayıt: 27 Haz 2018 17:17
Meslek: Satış destek
Yaş: 33
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Makro İle Mail Gönderme

İleti#4)  hmk237 » 05 Oca 2019 21:50

iyi günler. 72 sayfalık bi Excel dosyam var ve bu dosyada her sayfada kişiye özel bilgiler var. 1. sayfayı XXxxXXxxXX, 2. sayfayı XXxxXXxxXX, 3. sayfayı XXxxXXxxXX .... adreslerine excellden otomatik mail için uğraştım ama yapamadım. Aşağıda ki kodu buldum nerde değişiklik yapamcağım sizce.

Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 2) = "" Then GoTo HATA

On Error GoTo HATA

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

saydir = WorksheetFunction.CountIf(Range("A:A"), "<>") + 1
DinamikAlan = "D2:" & "F" & saydir
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)

Set Sayfa = ActiveSheet
For dongu = 1 To 6
With Alan

.Parent.Select
Set daralan = ActiveCell

.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = "Bu mail Funda Öztürk tarafından gmönderilmiştir."

With .Item
.to = Cells(4, 8)
'.CC = Cells(3, 2)
.Subject = Cells(dongu, 1)
.bcc = "XXxxXXxxXX"
.Send
End With

End With

daralan.Select
End With

Sayfa.Select

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

Next dongu
End Sub
Kullanıcı avatarı
hmk237
 
Kayıt: 04 Oca 2019 01:32
Meslek: Öğretmen
Yaş: 29
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe