Outlook / word plugin

Denne lille macro, gemmer indholdet fra det aktuelle Word-dokument i en sqlserver-tabel.

Det er selvfølgelig ikke et plugin, men kan måske løse dit problem?

Det samme må være muligt i Outlook.

Sub GemDok()
'
' GemDok Makro
'
'
  Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=sql1;Initial Catalog=eksperten;user id =sa;password=pw"
  Set myConn = CreateObject("ADODB.Connection")
  Set myCommand = CreateObject("ADODB.Command")
  myConn.Open DB_CONNECT_STRING
  Set myCommand.ActiveConnection = myConn
  myCommand.CommandText = "insert into wordtext (txt) values('" + ActiveDocument.Content.Text + "')"
  myCommand.Execute

'Close
myConn.Close

End Sub

Hej,
Tak for dit svar. Det var nu ikke helt det jeg var ude efter. Men det kan måske godt bruges i en snæver vending :-)

For en ordens skyld er her også en snæver vending til Outlook :)


Sub GemMail()
'
  Const DB_CONNECT_STRING = "Provider=SQLOLEDB.1;Data Source=sql1;Initial Catalog=eksperten;user id =sa;password=vinter02"
  Set myConn = CreateObject("ADODB.Connection")
  Set myCommand = CreateObject("ADODB.Command")
  myConn.Open DB_CONNECT_STRING
  Set myCommand.ActiveConnection = myConn
  myCommand.CommandText = "insert into wordtext (txt) values('" + GetCurrentItem().Body + "')"
  myCommand.Execute

'Close
myConn.Close

End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
           
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select
       
    Set objApp = Nothing
End Function

Hej igen. Det ser ikke ud til at der er nogen der har noget kode i den retning. Så jeg ville lukke spørgsmålet.
Skriver du et svar, Sherlock. Så får du point.

Ellers tak :)

Ok, så er det vist på tide at lukke denne her.