[Løst] Makro i Excel som sender e-post for å bestille tonere

[ilpostino]

Jeg har et delt regneark i Excel. Den første kolonnen har modellbetegnelse på noen multifunksjonskrivere, hvilke tonere de skal ha i tillegg til spilltonerbeholder. Kolonne #2 har antallet som skal være på lager mens kolonne #3 har antallet som faktisk er på lager.

 

Er det mulig å lage en knapp som sjekker misforholdet og sender en e-post med bestilling slik at man får bestilt det som mangler og får antallet man skal ha i henhold til kolonne #2?

Eksempelfil er vedlagt.

 

 

edit: jeg tenkte her makro er det mest åpenbare valget selv om jeg egentlig ike er noe glad i det så tar i mot andre tilnærminger med takk. 

 

edit 2: En oppdatering. Jeg har laget en ny kolonne som viser antallet som må bestilles ved avvik fra "idealtallet". Når man trykker på knappen for bestilling kjøres et script som leter etter celler med innhold i den nye kolonnen, kopierer innhold fra cellen sammen med navnet på toneren (tilsvarende celle fra kolonne A) og putter det i innholdet i e-posten. 

 

Koden for å sende e-post er som følger: 

Sub Bestilltoner()
    Dim OutApp As Object
    Dim OutMail As Object

    Dim strbody As String
    Set OutApp = CreateObject("Outlook.Application")

    Set OutMail = OutApp.CreateItem(0)
    strbody = "Hei, vi ønsker å bestille følgende tonere:" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"
    On Error Resume Next

    With OutMail
        .To = "<e-post adresse>"
        .CC = ""
        .BCC = ""
        .Subject = "Bestilling av tonere"
        .Body = strbody
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Ny fil: eksempel.xlsx

Endret 11. februar 2019 av ilpostino

[ilpostino]

Jeg fikk litt hjelp og til slutt løst det. Jeg legger det ved her slik at andre kan gjenbruk hvis det er behov for det. etter som det er en Excel-fil med makroer har jeg pakket den til en Zip. 

 

Bestille_tonere_forum.zip

 

 

[trn100]

Takk for delingen! 

[ilpostino]

Her er en litt oppdatert versjon som sender med serienummeret til skriverne. Canon og Konika Minolta liker å få den informasjonen når man bestiller tonere. 

Legg inn leveringsadressen og e-post adressen som tonerne skal sendes til i VBS-koden. 

 

Bestille_tonere_forum.zip