Osaisiko joku auttaa miestä mäessä?
Piirtelen omaan työtä varten kuvaajia Excel:lla. Nyt tuli tarve, että joka viikko lähettäisin samat kuvaajat myös pomolleni.
Olisiko tarjota Visual Basic -skriptistä esimerkkejä, jolla ottaa työkirjassa olevan kuvaajan ja laittaa sen liitteeksi sähköpostiin?
Mielessä siis jotain tämmöistä:
Set ws = ThisWorkbook.Sheets("sivu 1")
Set toAttach = ws.Charts("Chart 1")
Set outlookInstance = CreateObject("Outlook.Application")
Set mailMessage = outlookInstance.CreateItem(olMailItem)
mailMessage.Attachments.Add (toAttach)
mailMessage.Send
Paitsi ettei se juuri noin tietenkään toimi.
Piirtelen omaan työtä varten kuvaajia Excel:lla. Nyt tuli tarve, että joka viikko lähettäisin samat kuvaajat myös pomolleni.
Olisiko tarjota Visual Basic -skriptistä esimerkkejä, jolla ottaa työkirjassa olevan kuvaajan ja laittaa sen liitteeksi sähköpostiin?
Mielessä siis jotain tämmöistä:
Set ws = ThisWorkbook.Sheets("sivu 1")
Set toAttach = ws.Charts("Chart 1")
Set outlookInstance = CreateObject("Outlook.Application")
Set mailMessage = outlookInstance.CreateItem(olMailItem)
mailMessage.Attachments.Add (toAttach)
mailMessage.Send
Paitsi ettei se juuri noin tietenkään toimi.
Vastaukset 1
Vanhimmat
No keksinkin itse jonkinlaisen ratkaisun. Ehkä ei kaikista nohevin, mutta toimii.
Kutsun kuvaajalle vie-funktiota:
toAttach.Export Filename:="c:\windows\temp\kuva.gif", FilterName:="GIF"
ja sitten liitän luodun tiedoston sähköpostiin
mailMessage.Attachments.Add ("c:\windows\temp\kuva.gif")
Että näin.