vba - Visual Basic - Screen shot then insert into email -

-

i new using visual basic. using visual basic in ms excel. struggling work out have paste screen shot email. have following, please tell need enter.

thanks

    sub addtonaughtylist()  '     ' addtonaughtylist macro     '     range("y3:z3").select     application.cutcopymode = false     selection.insert shift:=xldown, copyorigin:=xlformatfromleftorabove     range("u2:v2").select     selection.copy     range("y3:z3").select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false     range("e2").select      dim aoutlook object     dim aemail object     dim studentname string     dim sendaddress string   ' copy picture      range("c6:s39").select     selection.copypicture appearance:=xlscreen, format:=xlbitmap  'setup email      set aoutlook = createobject("outlook.application")     set aemail = aoutlook.createitem(0)     studentname = activecell.value     sendaddress = range("d5")   'cells(1, "a").value  'set address      aemail.to = sendaddress  'set subject      aemail.subject = "weekly progress report " & studentname  'set body mail      aemail.htmlbody = "<font face=calibri><html><body>nat's *student needs attend friday detention* text goes here.</font><br /><br />" _  'paste email???????????  aemail.display

i see 2 possible solutions:

  1. outlook uses word rendering/editing message bodies. so, can use word object model pasting images clipboard. wordeditor property of inspector class returns instance of document class word object model represents message body. paste or pastespecial methods of selection class insert contents of clipboard. see chapter 17: working item bodies more information.
  2. save screenshot file on disk , attach mail item attachment. add method of attachments class creates new attachment in attachments collection. can mention in message body. note, need assign cid attribute attached image add reference in body.

for example:

  attachment attachment = newmail.attachments.add(@"e:\pictures\image001.jpg", olattachmenttype.olembeddeditem, null, "some image display name");    string imagecid = "image001.jpg@123";    attachment.propertyaccessor.setproperty("http://schemas.microsoft.com/mapi/proptag/0x3712001e", imagecid);   newmail.htmlbody = string.format("<body><img src=\"cid:{0}\"></body>", imagecid);

Comments

Post a Comment

Popular posts from this blog

javascript - oscilloscope of speaker input stops rendering after a few seconds -

-
the following script reads audio user's microphone , renders oscilloscope on html canvas. the source taken example of mozilla developer network: visualizations web audio api and here fiddle: http://jsfiddle.net/b7j8pktp/ mozgetusermedia (note: code has no fork mechanism different browsers: works firefox) it works fine few seconds , stops rendering. whereas works totally stable: http://mdn.github.io/voice-change-o-matic/ the problem can reduced following code. microphone activation icon (next the address bar in firefox) disappears after 5 seconds: navigator.mozgetusermedia({audio: true}, function() {}, function() {} ); ( http://jsfiddle.net/b7j8pktp/2/ ) this known bug in firefox. take stream getusermedia call , hook window so: navigator.mozgetusermedia({audio: true}, function(stream) { window.stream = stream; // rest of code }, function err() { // handle error }); hopefully can fixed soon. problem we're f
Read more

javascript - gulp-nodemon - nodejs restart after file change - Error: listen EADDRINUSE events.js:85 -

-
i'm running nodejs 0.12.3 - gulp 3.10.8 , gulp-nodemon 2.0.3. gulpfile.js : gulp.task('serve', ['build'], function() { gulp.start('fb-flo'); nodemon({ script: paths.server, env: { 'node_env': 'development' }, // env: { 'node_env': 'production' }, execmap: { 'js': 'node_modules/babel/bin/babel-node --stage 1' //es7 cote server }, delay: '0ms', watch: ['src/shared/', 'src/server/'], ignore: ['src/shared/components'], tasks: function (changedfiles) { var tasks = []; changedfiles.foreach(function (file) { if (path.extname(file) === '.jsx' && !~tasks.indexof('bundlejs')) tasks.push('bundlejs'); if (path.extname(file) === '.less' && !~tasks.indexof('compileless')) tasks.push('compileless'); }); return tasks; }
Read more

Fatal Python error: Py_Initialize: unable to load the file system codec. ImportError: No module named 'encodings' -

-
i trying make simple python program opening list of webpages user manually download reports site. don't have previous experience preparing exe files.. , i'm in learning process python coding. of done on windows 7 x64 this python code: #!c:/python34/python.exe -u splinter import * import time import os import csv #---------------------------------- raporty = [] open('../raporty.csv', newline='') csvfile: contents = csv.reader(csvfile, delimiter=' ', quotechar='|') row in contents: r = ', '.join(row) r = r.replace(',','') raporty.append(r) #--not implemented yet zmienne = [] open('../zmienne.csv', newline='') csvfile: contents = csv.reader(csvfile, delimiter=' ', quotechar='|') row in contents: r = ', '.join(row) r = r.replace(',','') zmienne.append(r) print("start") browser = browser(
Read more