Excel VBA for å sende Outlook mail.

[perroga]

Det finnes mange eksempler på nettet, men jeg har ikke funnet noen som helt dekker mitt behov.

 

Jeg trenger en VBA-programmering som kan sende innholdet  i et Excel- ark fra f.eks. Range("a7:b19") i en mail  til en e-mailadresse som står skrevet i Range("C7").

 

Jeg vil ikke skrive mailadressen direkte  inn i VBA, fordi den vil variere fra gang til gang når funksjonen benyttes.

 

Hilsen

 

Per Roar

[trn100]

Du finner VBA kode for dette her: (Litt forskjellig kode avhengig av Excel versjon)  https://www.rondebruin.nl/win/s1/outlook/amail4.htm

 

Det er bare å bytte ut e-post adressen med innholdet i C7 som beskrevet her: https://www.rondebruin.nl/win/s1/outlook/tips.htm

 

Mvh

Terje

Endret 30. januar 2019 av trn100

[perroga]

Tusen takk.  Jeg så på den igår og testet ut.  Rondebruin skriver mailadresse i VBA.

Jeg vil ha den til å finne emailadressen i regnearket, ikke i VBA. 

Da må man inn og programmere for å endre email, i f.eks ferier,  og det er det ikke alle som kan.

 

Men jeg fant en løsning idag etter et kort nettsøk, og modifiserte litt.

Noen som har kommentarer eller andre forslag.

 

 

Sub Send_Range()
  
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A7:B19").Select
  
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
  
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = Range("a1").Value
      .Item.Subject = "My subject"
      .Item.Send
      '.Item.display
   End With
End Sub
 

[trn100]

Det står beskrevet i den andre linken jeg la ved og der finnes det også noe andre tips.

 

https://www.rondebruin.nl/win/s1/outlook/tips.htm

[perroga]

Tusen takk.  Den er veldig nyttig.