- Katılım
- 15 Haziran 2005
- Mesajlar
- 40
Mrb,
Aşağıdaki kodları forum'dan aldım ancak Dim app As Outlook.Application
ve Dim posta As Outlook.MailItem satırlarında User-defined type not defiden hatasını veriyor.
Yardımınız için teşekkür ederim.
Syg.
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = txtemail.Value
.CC = ""
.BCC = ""
.Subject = "YEDEK PARÇA AMBAR RAPORU "
.body = txtbastar & " ve " & txtbittar & " Tarihleri arasındaki, " & lblbolum & " - " & lbldurum & " - " & lblfirma & " - " & lblsipver
.Attachments.Add "D:\RaporEmail.xls"
.Send
End With
Aşağıdaki kodları forum'dan aldım ancak Dim app As Outlook.Application
ve Dim posta As Outlook.MailItem satırlarında User-defined type not defiden hatasını veriyor.
Yardımınız için teşekkür ederim.
Syg.
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = txtemail.Value
.CC = ""
.BCC = ""
.Subject = "YEDEK PARÇA AMBAR RAPORU "
.body = txtbastar & " ve " & txtbittar & " Tarihleri arasındaki, " & lblbolum & " - " & lbldurum & " - " & lblfirma & " - " & lblsipver
.Attachments.Add "D:\RaporEmail.xls"
.Send
End With