Hi All,
We have migrated from Outlook to GSuite
Some users are still using Outlook for a few months.
I now have to rebuild all my VBA codes to send to gmail
Please could you advise on how to adjust my VBA code
any chance to have the VBA code to check for GSuite users or Outlook users to have both options available se send mail?
We have migrated from Outlook to GSuite
Some users are still using Outlook for a few months.
I now have to rebuild all my VBA codes to send to gmail
Please could you advise on how to adjust my VBA code
any chance to have the VBA code to check for GSuite users or Outlook users to have both options available se send mail?
Private Sub Command2_Click()
Dim rs As Recordset
Dim vRecipientList As String
Dim vMsg As String
Dim vSubject As String
Set rs = CurrentDb.OpenRecordset("SELECT * FROM TechPubDual ")
If rs.RecordCount > 0 Then
rs.MoveFirst
Do
If Not IsNull(rs!email) Then
vRecipientList = vRecipientList & rs!email & ";"
rs.MoveNext
Else
rs.MoveNext
End If
Loop Until rs.EOF
vMsg = "Please find attached new document loaded"
vSubject = "New Document Loaded"
DoCmd.SendObject acSendReport, "Email SB Notification - From TechPubs - All - SB TBL", acFormatPDF, vRecipientList, , , vSubject, vMsg, False
MsgBox ("Report successfully eMailed!")
Else
MsgBox "No contacts."
End If
DoCmd.RunMacro "Save Loadlist"
End Sub