Mail gönderme

[acetinnster]

Arkadaşlar hazırlanan kodlar ile excel ( x olan kısımlar) den mail gönderebiliyoruz ancak göndereceğimiz adres sayısını nasıl artırabiliriz tüm arkadaşlara teşekkürler

Sub Düğme4_Tıkla()
Dim IsCreated As Boolean
Dim i As Long
Dim PdfFile As String, Title As String
Dim OutlApp As Object


Title = Range("A1")


PdfFile = ActiveWorkbook.FullName
i = InStrRev(PdfFile, ".")
If i > 1 Then PdfFile = Left(PdfFile, i - 1)
PdfFile = PdfFile & "_" & ActiveSheet.Name & ".pdf"


With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With


On Error Resume Next
Set OutlApp = GetObject(, "Outlook.Application")
If Err Then
Set OutlApp = CreateObject("Outlook.Application")
IsCreated = True
End If
OutlApp.Visible = True
On Error GoTo 0


With OutlApp.CreateItem(0)


.Subject = Title
.To = "xxx.xxx@xxx.com"
.Body = "Kolay gelsin," & vbLf & vbLf _
& "Yeni açılan sipariş ek tedir." & vbLf & vbLf _
& "İyi çalışmalar," & vbLf _
& Application.UserName & vbLf & vbLf
.Attachments.Add PdfFile


On Error Resume Next
.Send
Application.Visible = True
If Err Then
MsgBox "E-mail was not sent", vbExclamation
Else
MsgBox "Mail başarıyla gönderildi", vbInformation
End If
On Error GoTo 0

End With


Kill PdfFile

If IsCreated Then OutlApp.Quit


Set OutlApp = Nothing

End Sub

 

[Emir Hüseyin Çoban]

. . .

Adresler arasına noktalı virgül ekleyin. Outlookta olduğu gibi...

.To = "xxx.xxx@xxx.com[COLOR="Red"][B];[/B][/COLOR]ikinci@mail.com[COLOR="Red"][B];[/B][/COLOR]ucuncu@mail.com"

. . .

 

[u.L.a.s]

Buradaki konuda size farklı bir yöntem olarak faydalı olacaktır.

Eğer Mailler sürekli değişiyorsa artıyorsa excelde alt alta belli bir sütunda mail ekleyip çıkararak o sütundaki hücrelerde yazan maillere mail gönderimi yapabilirsiniz.

http://www.excel.web.tr/f48/makro-ile-farkly-ki-ilere-farkly-icerikte-e-t149531.html

 

[acetinnster]

Excel den mail gönderme sorunu

Verdiğiniz cevaplar için çok sağolun arkadaşlar ancak ; işareti koyduğum an hata vermekte başka nasıl olabilir acaba teşekkür

 

[Emir Hüseyin Çoban]

.

.to satırına yazdığınız komutu buraya yazabilir misiniz.
Hatalı yaptığınız birşey olabilir.

.

 

[acetinnster]

Excel den mail gönderme

Hüseyin bey ilgilendiğiniz için çok teşekkürler

.Subject = Title
.To = "mail adresi"
.Body = "Kolay gelsin," & vbLf & vbLf _
& "Yeni açılan sipariş ek tedir." & vbLf & vbLf _
& "İyi çalışmalar," & vbLf _
& Application.UserName & vbLf & vbLf
.Attachments.Add PdfFile

mail adresi olan yere 1 adet mail yazar isek sıkıntı yok ancak başka mail adresleri nasıl ekleyebiliriz

; aralara koyduğum zaman tekrar hata vermekte atladığım ve ya hata yaptığım kısım neresi olabilir ve ya ilave edeceğim ne olabilir ?

 

[Emir Hüseyin Çoban]

. . .

        .Subject = Title
        .To = [B]"mailadresi1@mail.com[COLOR="Red"];[/COLOR]ikincimail@mail.com"[/B]
        .Body = "Kolay gelsin," & vbLf & vbLf _
        & "Yeni açılan sipariş ek tedir." & vbLf & vbLf _
        & "İyi çalışmalar," & vbLf _
        & Application.UserName & vbLf & vbLf
        '.Attachments.Add PdfFile
        .display

Bu kodları çalıştırınca işlem sonucu şu şekilde... 2.mesajda belirttiğimin dışında birşey yapmadım...
Yine hata alırsanız .to satırına gerçekte ne yazdıysanız onunla paylaşın...

. . .