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

Узнай цену своей работы

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

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

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

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

Оцени полезность:

15   голосов , оценка 4.267 из 5
Похожие ответы