04/08/2015, 11:28
Merhaba,
Ben Access 2010 tr kullanıyorum. form üzerine bir buton ekledim. bu butona basınca otomatikmen Outlook takvim çıkıyor ve kime kısmına formdaki Metin7 kutusunun içindeki mailleri Outlook kime kısmına ekliyor. Ben bu işlemi,
Outlook takvim kısmı değil de Yeni Eposta (ileti) penceresi çıksın ve Metin7 deki mailleri kime kısmına (gizli olanına, bcc ye) eklemesini istiyorum. Kod aşağıdadır, bu kodu nasıl düzeltebiliriz?
teşekkür ederim, saygılarımla.
KOD:
Private Sub Metin555_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim outobj As New Outlook.Application
Dim outappt As Outlook.AppointmentItem
On Error Resume Next
Set outobj = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set outobj = CreateObject("Outlook.Application")
Err.Clear
End If
Set outobj = CreateObject("Outlook.Application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = CDate(Me.Metin193) - "1" & " " & CDate("0,4375")
.Duration = "1440"
.Subject = "" & Me.Metin16
.Body = "" & Me.Metin7
.MeetingStatus = olMeeting
.Recipients.Add (Me.Metin321)
.ReminderMinutesBeforeStart = "60"
.ReminderSet = True
.Save
End With
outappt.Display
End Sub
Ben Access 2010 tr kullanıyorum. form üzerine bir buton ekledim. bu butona basınca otomatikmen Outlook takvim çıkıyor ve kime kısmına formdaki Metin7 kutusunun içindeki mailleri Outlook kime kısmına ekliyor. Ben bu işlemi,
Outlook takvim kısmı değil de Yeni Eposta (ileti) penceresi çıksın ve Metin7 deki mailleri kime kısmına (gizli olanına, bcc ye) eklemesini istiyorum. Kod aşağıdadır, bu kodu nasıl düzeltebiliriz?
teşekkür ederim, saygılarımla.
KOD:
Private Sub Metin555_Click()
DoCmd.RunCommand acCmdSaveRecord
Dim outobj As New Outlook.Application
Dim outappt As Outlook.AppointmentItem
On Error Resume Next
Set outobj = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set outobj = CreateObject("Outlook.Application")
Err.Clear
End If
Set outobj = CreateObject("Outlook.Application")
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.Start = CDate(Me.Metin193) - "1" & " " & CDate("0,4375")
.Duration = "1440"
.Subject = "" & Me.Metin16
.Body = "" & Me.Metin7
.MeetingStatus = olMeeting
.Recipients.Add (Me.Metin321)
.ReminderMinutesBeforeStart = "60"
.ReminderSet = True
.Save
End With
outappt.Display
End Sub