Skip to main content

AccessTr.neT


Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası

tarkanaykın
tarkanaykın
3
240

Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası

Çözüldü #1
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Outlook İle Gönderme Makrosunda Attachments Opsiyonu Hatası - Yazar: tarkanaykın - 20/05/2022, 12:23