Makro/VBA ile Excel'den Outlook'a mail gönderimi

[Mehmet Şahin]

.HTMLBody KISMINA "A3", "b3", "C3", "D3") NASIL YAZARIZ

Sayın gokhanbek,
34. mesajdaki dosyayı denendiniz mi? Denediyseniz sonuç ne oldu? Bu isteğiniz o dosyaya mı ait? Olumlu ya da olumsuz geri bildirim yapılmadıkça karanlıkta göz kırpmaktan farkı olamaz. Eğer gönderdiğim dosyada yazmak isterseniz;
Modül 1'deki

Set rng = sh.Range("j1:n6").SpecialCells(xlCellTypeVisible)

yerine

Set rng = sh.Range("a3:d3").SpecialCells(xlCellTypeVisible)

yazmalısınız. Kolay gelsin.

 

[gokhanbek]

Sayın gokhanbek,
34. mesajdaki dosyayı denendiniz mi? Denediyseniz sonuç ne oldu? Bu isteğiniz o dosyaya mı ait? Olumlu ya da olumsuz geri bildirim yapılmadıkça karanlıkta göz kırpmaktan farkı olamaz. Eğer gönderdiğim dosyada yazmak isterseniz;
Modül 1'deki

Set rng = sh.Range("j1:n6").SpecialCells(xlCellTypeVisible)

yerine

Set rng = sh.Range("a3:d3").SpecialCells(xlCellTypeVisible)

yazmalısınız. Kolay gelsin.

bu yeni bir kitap oluşturup e mail ana gövdeyi boş günderiyor.

 

[Mehmet Şahin]

Benim yaptığım testlerde hiçbir sorun görünmüyor.

 

[gokhanbek]

siz söyleyince tekrar denedim çalışmıyor

göderilecek tamam yazoyor.
konuyu yazıyor.
ama bilirtilen alanı yeni kitap açıyor.
e mail boş gönderiyor.

 

[gokhanbek]

sy dentex bu neden olmuyor

 

[KuTuKa]

makro sayfasın da alt + f11 yapıp
tools/references penceresini açın. Microsoft Outlook 14.0 Object Library etkinleştirin

 

[Mehmet Şahin]

Sayın gokhanbek,
sizde neden çalışmadığı konusunda hiçbir ipucu bulamadım. Yeni bir dosya oluşturup modül1 ve modül2'deki kodları kopyalayın. Eski dosyanızdaki "GİRİŞ" sayfasını yeniden oluşturup deneyin bir kez de. Şimdilik başka bir yorumda bulunamayacağım. İyi çalışmalar.

 

[KuTuKa]

sayın dentex 35. mesajdaki dosya ya 39. mesajdaki makroyu ekledim kaydettm yeniden açtım ama son satırdaki bilgiler takvime gönderiliyor.

sizde çalışıyor mu yada diğer arkadaşlar da bir deneyip bildirebilirler mi ?

 

[gokhanbek]

35 bende çalışıyor denedim

 

[Mehmet Şahin]

Sayın Kutuka,
kodlar, istisnalar dışında mutlaka denenerek gönderilir. Sizde bu şekilde çalışmasının mantıklı tek açıklaması "C" sütununda tarih bilgisi olmaması olabilir diye düşünüyorum. İyi çalışmalar.

 

[KuTuKa]

sayın dentex teşekkürler
c sütununa baktım
tarih girilmiş kaç satır olursa olsun son satır daki görev takvime kaydediliyor.

sizi çok uğraştırdım sabrınız için çok teşekkürler

 

[Mehmet Şahin]

Merhaba,

bu kodları deneyiniz,

Sub OutLook_Takvime_Olay_Ata()
    Dim sh As Worksheet
    Dim oOutLook As Object
    Dim oRandevu As Object
    Set sh = Sheets("Sayfa1")
    On Error Resume Next
    Set oOutLook = GetObject(, "Outlook.Application")
    If Err.Number = 429 Then
        Set oOutLook = CreateObject("Outlook.application")
    End If
    On Error GoTo 0

    On Error Resume Next
    
    For i = 6 To sh.[c65536].End(3).Row
       Set oRandevu = oOutLook.CreateItem(olAppointmentItem)
        With oRandevu
            .Start = Cells(i, 3) + Cells(i, 4)
            .End = Cells(i, 5) + Cells(i, 6)
            .Subject = Cells(i, 7)
            .Location = Cells(i, 8)
            .Body = Cells(i, 9)
            If Len(Cells(i, 10)) > 0 Then
                If IsNumeric(Cells(i, 10)) Then
                    .ReminderMinutesBeforeStart = Cells(i, 10)
                    .ReminderSet = True
                End If
            End If

            If Err <> 0 Then
                Cells(i, 2) = "HATA"
            Else
                .Save
                Cells(i, 2) = "OK"
                Err = 0
            End If
        End With
     Set oRandevu = Nothing
    Next i
    
'    oRandevu.Display
    Set oOutLook = Nothing
    Set sh = Nothing
End Sub

 

[KuTuKa]

bu sefer oldu çeok teşekkürler
sanırım bu mail göndermeden beni
m için daha iyi olacak
bir personelci olarak hatırlamamız gereken çok işlemimiz var bu epey faydalı olacak benim için sağolun.

 

[Mehmet Şahin]

Rica ederim, iyi akşamlar.

 

[gokhanbek]

olmadı acaba yenilesek mi bi eki bende çalışmadı

 

[gokhanbek]

olmadı acaba yenilesek mi bi eki bende çalışmadı

SAYIN dentex Bİ ÇÖZÜM BULA BİLİRMİYİZ. BU BENDE ÇALIŞMIYOR.

 

[KuTuKa]

B2 C2 D2 E2
B3 C3 D3 E3 DEKİ TAbloyu J sütunundaki mail adreslerine gönderiyor.

 

[gokhanbek]

B2 C2 D2 E2
B3 C3 D3 E3 DEKİ TAbloyu J sütunundaki mail adreslerine gönderiyor.

2 C2 D2 E2
B3 C3 D3 E3 DEKİ TAbloyu YENİ BİR KİTAP OLUŞTURUP E MAİLLİ BOŞ YOLLUYOR.

 

[Mehmet Şahin]

Sizin eklediğiniz dosyayı da denedim ve sorun çıkmadı. Muhtemelen sizin çalışma ortamındaki farklılıklardan kaynaklanıyor. Ekte Ron de Bruin'e ait çok faydalı, orjinal örnek dosya var, onları da inceleyebilirsiniz.

 

[gokhanbek]

Sizin eklediğiniz dosyayı da denedim ve sorun çıkmadı. Muhtemelen sizin çalışma ortamındaki farklılıklardan kaynaklanıyor. Ekte Ron de Bruin'e ait ço faydalı, orjinal örnek dosya var, onları da inceleyebilirsiniz.

evet bunuda denedim ama olmadı ne yapmalıyız