Gå til innhold

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


ilpostino

Anbefalte innlegg

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 av ilpostino
Lenke til kommentar
Videoannonse
Annonse

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...