Actualizar 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?