Access Mail

[emre_bademci]

Arkadaşlar Biliyorum bu konuda çok frm var ama hepsi birbirinden farklı lütfen verdiğim örnekteki deneme raporunuda mail frmuna ekliye bilirmisiniz toplu mail tıklıyınca deneme raporunuda ek olarak alsın

şimdiden yardımlarınız için teşekkür ederim

 

[mahmutbilal]

Modalı tarafından silindi.

Sayın mahmutbilal, lütfen forumun ciddiyetine uyalım ve forum kurallarını okuyalım.

 

[emre_bademci]

mahmutbilal Kolay gelsin

 

[emre_bademci]

Yardımlarınızı bekliyorum

 

[modalı]

Sayın emre_bademci,

Kodları şu şekilde değiştirip deneyin. Sadece sol taraftaki düğüme için yaptım. Sağ taraftaki ayrı ayrı e-mail gönderiyor.

Private Sub cmdMergeToEMailSingle_Click()
'Created by Helen Feddema 6-30-2002
'Last modified 6-30-2002
On Error GoTo ErrorHandler
   Dim strBCC, stDocName, strMesajText As String
   
   Set lst = Me![lstSelectContacts]
   'Check that at least one contact has been selected
   If lst.ItemsSelected.Count = 0 Then
      MsgBox "Please select at least one contact"
      lst.SetFocus
      GoTo ErrorHandlerExit
   End If
   
   'Test for required fields
   strTo = Me![txtTo].Value
   If strTo = "" Then
      strTo = "[EMAIL="someone@microsoft.com"]someone@microsoft.com[/EMAIL]"
   End If
   
   strSubject = Me![txtSubject].Value
   If strSubject = "" Then
      MsgBox "Please enter a subject"
      Me![txtSubject].SetFocus
      GoTo ErrorHandlerExit
   End If
   
   strBody = Me![txtBody].Value
   If strBody = "" Then
      MsgBox "Please enter a message body"
      Me![txtBody].SetFocus
      GoTo ErrorHandlerExit
   End If
   
   'Add contacts to variable for BCC field
   
   For Each varItem In lst.ItemsSelected
      'Check for email address
      strEMailRecipient = Nz(lst.Column(1, varItem))
      Debug.Print "EMail address: " & strEMailRecipient
      If strEMailRecipient <> "" Then
         strBCC = strBCC & strEMailRecipient & ";"
      End If
   
   Next varItem
   
   strBCC = Left(strBCC, Len(strBCC) - 1)
   
   stDocName = "deneme"
   DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
   DoCmd.SendObject acReport, stDocName, acFormatSNP, strBCC, , , strSubject, strBody
   DoCmd.Close acReport, stDocName, acSaveNo
   'Create new mail message and send to contacts
   'Set msg = appOutlook.CreateItem(olMailItem)
   'With msg
      '.To = strTo
      '.Subject = strSubject
      '.Body = strBody
      '.BCC = strBCC
      '.Display
   'End With
   
ErrorHandlerExit:
   Exit Sub
ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
   Resume ErrorHandlerExit
End Sub

İyi çalışmalar

 

[emre_bademci]

Öncelikle teşekkür ederim modalı ama geçerli biçim uygun değil diyor

 

[emre_bademci]

formatı sormasını sağlıya bilirmiyiz access rapor butonundaki gibi

 

[modalı]

Sayın emre_bademci

DoCmd.SendObject acReport, stDocName, acFormatSNP, strBCC, , , strSubject, strBody

Satırını

DoCmd.SendObject acReport, stDocName, , strBCC, , , strSubject, strBody

ile değiştirerek deneyin.

İyi çalışmalar

 

[emre_bademci]

Tamamdır teşekkür ederim

Sana Daha Önce Bu konularda Uzmansın Diyen Olmuşmuydu