Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • İşletim Sistemleri ve Yazılımlar
  • Yazılım Genel
  • Ofis Uygulamaları
  • Bu Konuda
Şimdi Ara

Makro ile Outlook ta e posta gönderme hatası

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
675
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Merhaba

    Mutabakat için excel ile outlook üzerinden mektup gönderiyordum. Bilgi işlem de çalışan eski arkadaş makroyu oluşturmuştu. Bilgisayarım yenilendiğinde birşeyler ters gitmeye başladı. E posta doğru gidiyor ancak "Konu" alanı boş kalıyor. Bunun nedeni ve çözümü için yardımınızı rica ederim. Excel ekran görüntüsü, outlook ekran görüntülerini ve makro dizinini aşağıya ekledim.

    Makro çalışma süreci.
    1- Excel Sheet1 sayfasına mutabakat yapmak istediğim firmaların bilgisini giriyorum. Ünvan, vergi numarası, e posta adresi.
    2- Mutabakat pdf leri C:\BA Mutabakat Mektupları klasörüne koyuyorum.
    3- E posta metni Sheet1 sayfasında D1 hücresi
    4- Excel Sheet1 sayfasında Gönder ikonunu tıkladığımda aşağıda ekran görüntüsünde göreceğiniz şekilde mektupları gönderiyordum.

    Tşk




    Sub Mail_atici()
    ' E-mail sender to restaruants.
    '
    ' Revision History
    ' [09.03.2012] [kayhany] script created for single email.
    ' [12.03.2012] [kayhany] Loop added for email addresses at col. A, parametric message enabled for col. B.
    '
    '
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sayac As Integer
    Dim SigString As String
    Dim Signature As String
    sayac = 1

    'Change only Mysig.txt to the name of your signature
    SigString = Environ("appdata") & _
    "\Microsoft\Signatures\Genel.txt"

    If Dir(SigString) <> "" Then
    Signature = GetBoiler(SigString)
    Else
    Signature = ""
    End If


    For Each cell In Columns("A").Cells.SpecialCells(xlCellTypeConstants)
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    ' Loop for sending mails


    With OutMail
    .To = cell.Value
    .CC = ""
    .BCC = ""
    .Subject = Columns("B").Cells(sayac)
    .Body = Columns("D").Cells("1") & vbNewLine & vbNewLine & Signature

    '.Attachments.Add ActiveWorkbook.FullName
    ' You can add other files by uncommenting the following line.
    .Attachments.Add ("C:\BA Mutabakat Mektupları\" & Columns("B").Cells(sayac) & "-" & Columns("C").Cells(sayac) & ".PDF")
    ' In place of the following statement, you can use ".Display" to
    ' display the mail.
    .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    sayac = sayac + 1
    Next cell
    End Sub
    Function GetBoiler(ByVal sFile As String) As String
    'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
    End Function


    Makro ile Outlook ta e posta gönderme hatasıMakro ile Outlook ta e posta gönderme hatası







    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız