Excel Makro ile Otomatik Mail Gönderme

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel Makro ile Otomatik Mail Gönderme

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

2
Cevap 6391
Tıklama 0
Öne Çıkarma

1. sayfa

Excel Makro ile Otomatik Mail Gönderme

Cevap Yaz

Donnie.Brasco

12 yıl (1332 mesaj)

Yüzbaşı

Konu Sahibi

Merhaba Arkadaşlar,

Konuyu direk olarak örnekleme ile anlatmaya çalışacağım.

excel tablosunda

A1: kuruluskodu
B1: departmankodu
C1: ad
D1: soyad
E1: mail adresi

olarak satırları belirlenecek ve bilgileri hazırdır. Yukarıdaki kurulus kodu ve departman koduna göre ayrı bir klasörde yer alan pdf dosyalarını gönderilecek mailin ekine otomatik olarak eklemesi gerekmektedir. Gönderilecek mailin taslağı bellidir ve sadece dönemsel olarak 2 kelimenin değişmesi gerekecektir.

bu şekilde dönemsel olarak kendi outlook mail hesabımdan gönderiliyormuş gibi görünecek şekilde gönderim yapabilecek makro yazılabilir midir?

maalesef bu konu hakkında herhangi bir bilgim bulunmamaktadır, desteklerinizi rica ediyorum.

fsh77

12 yıl (9681 mesaj)

Yarbay

Sub PDFAC()

Dim xRow As Long
Dim xDirect$, xFname, InitialFoldr$
InitialFoldr$ = "C:\"
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname = Dir(xDirect$, 7)
Do While xFname <> ""
ActiveCell.Offset(xRow) = "=Hyperlink(" & """" & xDirect$ & "" & xFname & " "")"
xRow = xRow + 1
xFname = Dir
Loop
End If
End With

End Sub

Bu kodla pdf lerini yazdır "aktif hucren nerede ise ordan baslar"

Sub mail()

Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String

Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
'set sheet to find address for e-mails as I have several people to mail to
Set rngeAddresses = ActiveSheet.Range("A3:A13")
For Each rngeCell In rngeAddresses.Cells
strRecipients = strRecipients & ";" & rngeCell.Value
Next
'set Importance
aEmail.Importance = 2
'Set Subject
aEmail.Subject = "Indicator activity warning ( TestMailSend )"
'Set Body for mail
aEmail.Body = "Please log onto the MIS v2 system to check status (( Indicator List))"
'Set attachment
aEmail.ATTACHMENTS.Add ActiveWorkbook.FullName
'Set Recipient
aEmail.To = strRecipients
'or send one off to 1 person use this static code
'aEmail.Recipients.Add "E-mail.address-here@ntlworld.com"
'Send Mail
aEmail.Send

End Sub
bunlada uygun aralıkları secerek mailini gonder...

Bu mesaja 1 cevap geldi.

ydemiral

10 yıl (11 mesaj)

Bu işlemin farklı seçeneğine ihtiyacım var.
Excell de çoklu sayfalarda işlem yaptım ve bu sayfaların toplamı başka bir sayfada teklif mektubuna dönüşüyor...
O teklif mektubunu tek işlemde PDF olarak mail atabilirmiyim?

Fakat kayıt ederken yine excell olarak kalması gerekiyor, çünki değişiklik yapabilmem lazım.

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Excel Makro ile Otomatik Mail Gönderme