Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası (/konu-outlook-ile-gonderme-makrosunda-attachments-opsiyonu-hatasi.html) |
Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası - tarkanaykın - 20/05/2022 merhaba arkadaşlar, bulduğum bir kodu kendime göre uyarladım; outlook üzerinden hem mesaj hem de ek gönderiyor, karar değiştirdim sadece mesaj göndermek istedim işte bu yüzden Attachments.Add ("xxxxx") kısmını iptal ettim bu kez hiç mesaj göndermedi, ne alakası var bu bir seçenek değil mi? ben sadece mesaj göndersin istiyorum ama bu kısım, mesajı göndermeme engel oluyor, bunu nasıl düzeltebiliriz acaba? Sub Email_CurrentWorkBook() Dim Makro As Object Dim Mail As Object Set Makro = CreateObject("Outlook.Application") Set Mail = Makro.CreateItem(0) On Error Resume Next With Mail .To = Range("c5").Value .CC = "" .BCC = "" .Subject = "Örnek" .Body = "örnektir" '.Attachments.Add ("C:\Users\xxxxxx\Desktop\deneme.pdf") tik atıp devre dışı bıraktım .Send End With On Error GoTo 0 Set Mail = Nothing Set Makro = Nothing End Sub RE: Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası - atoykan - 20/05/2022
olarak deneyin.objectler için set nothing düzenlemelerini bu kodu esas alarak yapın belirtmeyi unutmuşum. Kodunuzda error handlerınızda sorunlu kodları tanımlı değil. RE: Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası - tarkanaykın - 21/05/2022 Çok teşekkür ederim sayın atoykan, bu iş de tamam, çalıştı, kolay gelsin. RE: Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası - atoykan - 21/05/2022 Rica ederim. İyi çalışmalar. |