Как вместе с файлом отправить на почту и фото - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д