Combinar VBA para enviar emails en Access

Necesito ayuda para actualizar el código para enviar emails desde Access

En una bbdd uso un procedimiento de evento que envia un nuevo email a los destinatarios previamente seleccionados (y funciona a la perfección). Va a continuación:

"Private Sub EmailsCDM_Click()

Dim rst As DAO.Recordset
Dim EmailsCDM As String
Set rst = CurrentDb.OpenRecordset("Select email from ConvoE_CD_M")
While Not rst.EOF
 EmailsCDM = EmailsCDM & rst!email & ";"
 rst.MoveNext
 Wend
 If Nz(EmailsCDM, "") <> "" Then
 EmailsCDM = Left(EmailsCDM, Len(EmailsCDM) - 1)
 End If
DoCmd.SendObject , , , , , EmailsCDM

End Sub"

El tema es que en algunos ordenadores no sé porque no funciona y me han dicho que lo cambie por este, pero NO SÉ CÓMO FUSIONARLOS:

Private Sub cmdAbrirNuevoEmail_Click()

    On Error GoTo StartError

    Dim objOutlook As Object

    Dim objItem As Object

    'Create a Microsoft Outlook object.

    Set objOutlook = CreateObject("Outlook.Application")

    'Create and open a new contact form for input.

    Set objItem = objOutlook.CreateItem(olMailItem)

    objItem.Display

    'Quit Microsoft Outlook.

    Set objOutlook = Nothing

    Exit Sub

StartError:

    MsgBox "Error: " & Err & " " & Error

    Exit Sub

End Sub

¿Una ayuda please?