Är det möjligt att ta ett värde från ett e-mail och sedan infoga det i exel med ett makro? Kan man lösa detta på någon sätt med VB och i såfall hur?

hmm, kan du förklara lite mer hur du vill att det ska fungera?
Vill du ha ett program som läser av ett email och stoppar in ett eventuellt värde i Excel?
/Magnus

Vi har en programvara på jobbet som läser av värden från en tank och sedan automatiskt skickar ut varje värde till en angiven e-mail adress.. Det jag vill är att man ska kunna få in värdet i Exel från t ex Outlook utan att behöva föra över det manuellt varje gång.

Jag har kört huvudet i väggen, kanske nån annan har nåt bra tips?

Jag vet inte om detta hjälper men jag har en funktion som gör det omvända dvs hämtar uppgifter från ett Excelark och skriver ett email åt dig, koden är:

Sub SendEMail()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As String, x As Double, s As Integer

' Get the email address
Email = "här skriver du in din emailadress"
r = InputBox("Du som vill maila heter: ")
' Message subject
Subj = "Här skriver du rubriken på ditt email"

' Compose the message
Msg = ""
Msg = Msg & "Hej Ditt namn, " & vbCrLf & vbCrLf
Msg = Msg & "Jag vill fråga dig följande: " & vbCrLf & vbCrLf
Msg = Msg & "mvh " & r

' Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

' Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
' Create the URL
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

' Shell the Windows Start command
x = Shell("Start " & URL)

' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
End Sub

Med funktionen "hämta extern data" i Exel kan man hämta data från en databas. Om man nu kunde skicka värdet med ett e-mail till en databas så har ju allt löst sig, går det möjlightvis att skicka ett e-mail till en databas??