Sub mailgonder()
Dim subeSayisi As Integer
subeSayisi = 4
Dim mailAdres(11) As String
mailAdres(0) = "xxx@syyyy.com.tr"
mailAdres(1) = "aaaa@firma.com.tr"
mailAdres(2) = "bbb@firma.com.tr"
mailAdres(3) = "ccc@firma.com.tr"
Dim myBody As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\body.txt", 1)
Do Until objFile.AtEndOfStream
myBody = myBody & objFile.Read(1)
Loop
Dim i As Integer
For i = 1 To subeSayisi
If FileExists("c:\SUBELEREDAGIL\" & i & ".xls") Then
Dim out As Object
Set out = CreateObject("outlook.application")
With out.CreateItem(olMailItem)
.Recipients.Add mailAdres(i - 1)
.Subject = "xxxxxx Raporu"
.Body = myBody
.Attachments.Add "c:\" & i & ".xls"
.Send
End With
End If
Next i
End Sub
Public Function FileExists(Fname As String) As Boolean
If Fname = "" Or Right(Fname, 1) = "\" Then
FileExists = False: Exit Function
End If
FileExists = (Dir(Fname) <> "")
End Function
SORUN:
Şubelere toplu outlook içinden mail göndermek için yazılan kodlar yukarıda yer almaktadır. Her bir şubeye sadece kendi excel tablosu şeklindeki raporunu gönderiyor. Şubeye excel raporu yoksa diğer şubeye geçiyor. body.txt dosyasından mail içeriğini okuyor ve mail içerisine yapıştırıyor. Toplu mail göndermek istediğimiz zaman body.txt dosyasının içeriğini değiştirmek yetiyor. Fakat text dosyasında yazı karakterlerinde değişiklik olmuyor (bold, italik vb.).
Bu mantıkta kodu word ile çalıştırmak istiyorum. Aktif olarak içeriği hazırlanmış ve kaydedilmiş word belgesine ilgili kişileri ve dosyaları ekleyerek toplu olarak göndermek istiyorum.
pills11.com
)
pills11.com)
Dim subeSayisi As Integer
subeSayisi = 4
Dim mailAdres(11) As String
mailAdres(0) = "xxx@syyyy.com.tr"
mailAdres(1) = "aaaa@firma.com.tr"
mailAdres(2) = "bbb@firma.com.tr"
mailAdres(3) = "ccc@firma.com.tr"
Dim myBody As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\body.txt", 1)
Do Until objFile.AtEndOfStream
myBody = myBody & objFile.Read(1)
Loop
Dim i As Integer
For i = 1 To subeSayisi
If FileExists("c:\SUBELEREDAGIL\" & i & ".xls") Then
Dim out As Object
Set out = CreateObject("outlook.application")
With out.CreateItem(olMailItem)
.Recipients.Add mailAdres(i - 1)
.Subject = "xxxxxx Raporu"
.Body = myBody
.Attachments.Add "c:\" & i & ".xls"
.Send
End With
End If
Next i
End Sub
Public Function FileExists(Fname As String) As Boolean
If Fname = "" Or Right(Fname, 1) = "\" Then
FileExists = False: Exit Function
End If
FileExists = (Dir(Fname) <> "")
End Function
SORUN:
Şubelere toplu outlook içinden mail göndermek için yazılan kodlar yukarıda yer almaktadır. Her bir şubeye sadece kendi excel tablosu şeklindeki raporunu gönderiyor. Şubeye excel raporu yoksa diğer şubeye geçiyor. body.txt dosyasından mail içeriğini okuyor ve mail içerisine yapıştırıyor. Toplu mail göndermek istediğimiz zaman body.txt dosyasının içeriğini değiştirmek yetiyor. Fakat text dosyasında yazı karakterlerinde değişiklik olmuyor (bold, italik vb.).
Bu mantıkta kodu word ile çalıştırmak istiyorum. Aktif olarak içeriği hazırlanmış ve kaydedilmiş word belgesine ilgili kişileri ve dosyaları ekleyerek toplu olarak göndermek istiyorum.
pills11.com
)pills11.com
)