Millaisella makrolla saisin kopioitua taulukosta alueen A1:N4 suoraan outlookkiinm viestiksi?
Voiko otsikon kirjoittaa myös suoraan makroon
excelistä-> outlookiin
9
70
Vastaukset
Ai, miksi pitäisi olla makro? Eikö vain riitä että maalat haluamasi alueen, kopioit sen (ctrl c), liität sen sähköpostiin haluamaasi kohtaan (ctrl v). Se näkyy sähköpostin tekstissä taulukkomuodossa.
Jos siinä pitäisi säilyä myös mahdolliset laskukaavat, niin eiköhän se silloin pidä laittaa liitetiedostona.- Juuomu
Niin, juttu on vaan niin että, kun pyörittää talukkoa tähän asti marolla, voisi sen viedä loppuun saakka. Liittee lisääminen onnistuisi, mutta tämä ei olisi nyt ratkaisu. Olisiko ajatuksia toteutukseen....
- Käykötämä
Range("A1:N4").Copy
- juuomu
Empä onnistunut tuota liittämään viestiksi. Yhden solun tieto kyllä onnistuu.
- 3points
Tuollaisesta alkuun:
Sub Mail_Outlook()
Dim OutApp As Object
Dim OutMail As Object
MailTo = Cells(1,2).Value
MailSubject = Cells(2,2).Value
MailBody = Cells(3,2).Value
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(o)
With OutMail
.Subject = MailSubject
.To = MailTo
.body = MailBody
.Display
'.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub- Tämmöinen
Vähän jatkettu versio:
Sub Mail_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim s As String
s = ""
MailTo = "[email protected]"
MailSubject = "Koelähetys"
For r = 1 To 4
For c = 1 To 14
s = s Cells(r, c) & Chr(9)
Next c
s = s Chr(13)
Next r
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(o)
With OutMail
.Subject = MailSubject
.To = MailTo
.body = s
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub - juuomu
Hienoa. Tätä juuri tarkoitan.
Kuinka sitten saisin kasvatettua aluetta niin, että viesti olisi Esim Range(cells(1,1),cells(viimr,viims)) kokoinen - juuomu
Ja niin että excelin muotoilut vielä säilyisivät
- juuomu
Noh, näinhän tämä menee. Kiitokset avustajille
Private Sub Mail_Outlook()
viimr = Cells.SpecialCells(xlCellTypeLastCell).Row 'viimeinen rivi
viims = Cells.SpecialCells(xlCellTypeLastCell).Column 'viimeinen sarake
Range(Cells(1, 1), Cells(viimr, viims)).Copy
Dim OutApp As Object
Dim OutMail As Object
Dim s As String
MailTo = "[email protected]"
MailSubject = "Koelähetys"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(o)
With OutMail
.Subject = MailSubject
.To = MailTo
.body = ""
.Display
End With
SendKeys "^v"
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Elämä valuu ohi ilman merkitystä
Olen 5-kymppinen korkeasti koulutettu hyvässä ja vaativassa työssä oleva mies. Erosin pitkästä parisuhteesta pari vuotta3024896Martina julkaisi romanttisia kuvia kihlajaisista
Ihana pari. Paljon onnea ja rakkautta heille 💞2721480Ilo, joka nousee silmiisi saakka
kun katseemme kohtaavat. Olet energinen, aito, ihana. Välillä tuijotat suoraan silmiini - enkä hämmenny, katson takaisin661416eerikäinen novassa sanoi ei kukaan enää aja manuaalivaihteilla
meillä on 3 autoa talissa ja kaikissa manuaalilaatikot, on meillä vielä tämmöiset vaikka toisin puhutaan.1111253Gekkosessa hyvä juttu Sofian Dubai "töistä"
"Vielä tammikuussa Belórf lupaili aloittavansa jälleen verkkovalmennukset, mutta tämä projekti näyttää kuihtuneen kaikes1061238- 851178
En oikeasti
Tiennyt että sinulla on ollut vaikeuksia ja huonoja aikoja. Olen oikeasti pahoillani, ja olisin myös toiminut eritavoin1321148Jokaisella on omat syntinsä
Minä olisin niin mielelläni sinun. Ehkä joskus viittasitkin siihen. Olet nainen ajatuksissani jatkuvasti ja taidat tietä591076- 172918
Palsta sekosi lopullisesti?
Taidan mennä päikkäreille. Oliko hän nyt muka oikeasti äsken täällä ja kirjoitti, että täytyy unohtaa? Todistakaa se. Ki15871