Merhabalar;
aşağıdaki makroda, hafta tatili,izinli vs.olanları dosyayı sent ettiğimde mail sayfama çıkartamıyorum.yardımlarınızı rica ederim.
Sub proses()
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = Range("K8").Value & " _" & Range("K10").Value & "_KASIRGA " & Value
.Body = "Saygılarımla, Hayırlı işler"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
'.Send 'or use
.Display
End With
'**************************************
On Error Resume Next
' ----
Dim objOutlook As Object
'Dim objMailMessage As Outlook.MailItem
Dim objMailMessage As Object
Dim emlBody, sendTo As String
Dim wkbook As String
Dim i As Integer
Dim Mesaj As String
Application.ScreenUpdating = False
If Range("C14") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B14").Value & vbTab & vbTab & Range("C14").Value & vbCrLf
End If
If Range("C15") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B15").Value & vbTab & vbTab & Range("C15").Value & vbCrLf
End If
If Range("C16") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B16").Value & vbTab & vbTab & Range("C16").Value & vbCrLf
End If
If Range("C17") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B17").Value & vbTab & vbTab & Range("C17").Value & vbCrLf
End If
If Range("C18") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B18").Value & vbTab & vbTab & Range("C18").Value & vbCrLf
End If
If Range("E14") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D14").Value & vbTab & vbTab & Range("E14").Value & vbCrLf
End If
If Range("E15") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D15").Value & vbTab & vbTab & Range("E15").Value & vbCrLf
End If
If Range("E16") = "HAFTA TATİLİ" Then
Mesaj = Mesaj & Range("D16").Value & vbTab & vbTab & Range("E16").Value & vbCrLf
End If
If Range("E17") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D17").Value & vbTab & vbTab & Range("E17").Value & vbCrLf
End If
If Range("E18") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D18").Value & vbTab & vbTab & Range("E18").Value & vbCrLf
End If
'************************************
'
End Sub
aşağıdaki makroda, hafta tatili,izinli vs.olanları dosyayı sent ettiğimde mail sayfama çıkartamıyorum.yardımlarınızı rica ederim.
Sub proses()
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = Range("K8").Value & " _" & Range("K10").Value & "_KASIRGA " & Value
.Body = "Saygılarımla, Hayırlı işler"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
'.Send 'or use
.Display
End With
'**************************************
On Error Resume Next
' ----
Dim objOutlook As Object
'Dim objMailMessage As Outlook.MailItem
Dim objMailMessage As Object
Dim emlBody, sendTo As String
Dim wkbook As String
Dim i As Integer
Dim Mesaj As String
Application.ScreenUpdating = False
If Range("C14") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B14").Value & vbTab & vbTab & Range("C14").Value & vbCrLf
End If
If Range("C15") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B15").Value & vbTab & vbTab & Range("C15").Value & vbCrLf
End If
If Range("C16") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B16").Value & vbTab & vbTab & Range("C16").Value & vbCrLf
End If
If Range("C17") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B17").Value & vbTab & vbTab & Range("C17").Value & vbCrLf
End If
If Range("C18") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("B18").Value & vbTab & vbTab & Range("C18").Value & vbCrLf
End If
If Range("E14") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D14").Value & vbTab & vbTab & Range("E14").Value & vbCrLf
End If
If Range("E15") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D15").Value & vbTab & vbTab & Range("E15").Value & vbCrLf
End If
If Range("E16") = "HAFTA TATİLİ" Then
Mesaj = Mesaj & Range("D16").Value & vbTab & vbTab & Range("E16").Value & vbCrLf
End If
If Range("E17") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D17").Value & vbTab & vbTab & Range("E17").Value & vbCrLf
End If
If Range("E18") = "HAFTA TATİLİ" Or "İSTİRAHATLİ" Or "GEÇ KALDI" Or "YILLIK İZİNLİ" Or "İZİN ALMA" Or "GELMEDİ" Or "EVLENME" Or "DOĞUM İZNİ" Or "ÖLÜM İZİNİ" Or "TRANSFER" Or "GEÇİCİ TRANSFER" Or "EĞİTİM" Or "GÖREVLİ" Or "İSTİFA" Or "ASKERLİK" Then
Mesaj = Mesaj & Range("D18").Value & vbTab & vbTab & Range("E18").Value & vbCrLf
End If
'************************************
'
End Sub