- Katılım
- 4 Ağustos 2016
- Mesajlar
- 19
- Excel Vers. ve Dili
- excel 2013
türkçe
Arkadaşlar merhaba. Oluşturduğum tabloyu bir tuşa basarak email yollamak istiyorum. Bu konuda araştırmalarım sırasında kişisel bir blogtan bir örnek dosya ve kod buldum. Örnek dosya tam da istediğim gibi. Fakat kodu kendi excel dosyama eklemek istediğimde outlook eklentisi ve düğme çalışmıyor. Örnek dosya üzerinden çalışma yapabilirim fakat güvenilir mi değil mi bilemedim.
Sorum şu bu kodlamayı kendi excel dosyama ekleyebilirmiyim?
Veya örnek dosya üzerinden rahatlıkla (güvenle) devam edebilirmiyim?
Sorum şu bu kodlamayı kendi excel dosyama ekleyebilirmiyim?
Veya örnek dosya üzerinden rahatlıkla (güvenle) devam edebilirmiyim?
Kod:
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range
'Mail kısmının boş bırakılması durumunu kontrol eder.
If Cells(2, 2) = "" Then GoTo HATA
'Herhangi bir hata ile karşılaşırsa, makroyu sonlandırır.
On Error GoTo HATA
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Mail tablosuna dinamiklik kazandırmak için tabloda kaç satır olduğunu bulur.
saydir = WorksheetFunction.CountIf(Range("D:D"), "<>") + 1
'Dinamik alan tanımlanır.
DinamikAlan = "D2:" & "G" & saydir
'Dinamik alan mail alanı olarak kurulur.
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)
Set Sayfa = ActiveSheet
With Alan
.Parent.Select
Set daralan = ActiveCell
.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
.Introduction = "Otomatik Mail. BYMMB.COM tarafından tasarlanmıştır."
With .Item
.To = Cells(2, 2)
.CC = Cells(3, 2)
.Subject = Cells(1, 2)
.bcc = "admin@bymmb.com"
.Send
End With
End With
daralan.Select
End With
Sayfa.Select
HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
