Как вместе с файлом отправить на почту и фото - VB

Формулировка задачи:

ПОдскажите написал прогркамму которая с Висуал бейсика подгружает файлы в ворд и отправляет их на почту, ВНИМАНИЕ ВОПРОС как сделать так, что бы вместе с файлом отправлялось и фото, может нужно как то в бейсике прописать, жду совета а лучше наглядного кода, заранее спасибооо))))

                    Листинг программы
                
 
                        
                          
                    
Dim o_Mess48, v_Conf48
v_Conf48 = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess48 = CreateObject("CDO.Message")
With o_Mess48
.To = ""
.From = ">"
 .Subject = ""
 .TextBody = ""
 .AddAttachment "c:\.doc"
 .TextBodyPart.Charset = "windows-1251"
 With .Configuration.Fields
 .Item(v_Conf48 & "sendusing") = 2
 .Item(v_Conf48 & "smtpserver") = "smtp.gmail.com"
 .Item(v_Conf48 & "smtpauthenticate") = 1
 .Item(v_Conf48 & "sendusername") = ""
 .Item(v_Conf48 & "sendpassword") = ""
 .Item(v_Conf48 & "smtpserverport") = 465
 .Item(v_Conf48 & "smtpusessl") = True
 .Item(v_Conf48 & "smtpconnectiontimeout") = 60
 .Update
End With
    .send
End With
Set o_Mess48 = Nothing
Set wd49 = Nothing
Set wd49Doc = Nothing

как сюда добавить еще и фото?????

Решение задачи: «Как вместе с файлом отправить на почту и фото»

textual
                            Листинг программы 
                        
 
                            
                        
Dim o_Mess48 As Object, v_Conf48, oCDOCnf As Object, objPic As Object
    Dim sBody As String
    
    v_Conf48 = "http://schemas.microsoft.com/cdo/configuration/"
    Set oCDOCnf = CreateObject("CDO.Configuration")
 
    With oCDOCnf.Fields
        .Item(v_Conf48 & "sendusing") = 2
        .Item(v_Conf48 & "smtpserver") = "smtp.gmail.com"
        .Item(v_Conf48 & "smtpauthenticate") = 1
        .Item(v_Conf48 & "sendusername") = ""
        .Item(v_Conf48 & "sendpassword") = ""
        .Item(v_Conf48 & "smtpserverport") = 465
        .Item(v_Conf48 & "smtpusessl") = True
        .Item(v_Conf48 & "smtpconnectiontimeout") = 60
        .Update
    End With
    Set o_Mess48 = CreateObject("CDO.Message")
    sBody = "<html><head><body><b> <img src=""cid:1.jpg""/> Текст письма</b></body></head></html>"
    With o_Mess48
        Set .Configuration = oCDOCnf
        .HTMLBody = sBody
        Set objPic = .AddRelatedBodyPart("C:\1.jpg", "1.jpg", 1)
        objPic.Fields.Item("urn:schemas:mailheader:Content-ID") = ""
        objPic.Fields.Update
        .TextBodyPart.Charset = "windows-1251"
        .To = ""
        .From = ">"
        .Subject = ""
        .AddAttachment "c:\.doc"
        .Send
    End With
    Set o_Mess48 = Nothing