[Word] Document mailen naar geadresseerde

[riffey#4]

Ik wil het Word document waar ik mee bezig ben mailen naar een verschillende vaste geadresseerden met een standaard onderwerp.

Nu kan ik wel een knop maken die een e-mail opstelt met een geadreseerde en een onderwerp, maar dan gaat het huidige document niet mee. Er wordt dan een kaal e-mail bericht aangemaakt.
Ik kan ook kiezen om het bestand te mailen als attachement, maar dan kan ik niet automatisch een geadresseerde en onderwerp opgeven.

Voorbeeldje: mijn in bewerking zijnde document wil ik mailen naar [e-mail] met als onderwerp Order.

De geadresseerden uit het Exchange adresboek halen is geen optie.
Ik wil voor de gebruikers een paar knoppen maken binnen Word om te voorkomen dat ze de verkeerde geadresseerde in combinatie met het verkeerde onderwerp mailen.

Wat het dichst bij komt is:
Shell "C:\Program Files\Microsoft Office\Office\Outlook.exe /c ipm.note /m [e-mail]&subject=Order /a c:\mail.doc"

Hier wordt alleen niet het huidige document gemaild, maar een reeds bestaand document.

De ander optie is:
ActiveDocument.SendMail

Maar hoe krijg ik hiet een geadresseerde en een onderwerp mee?

[F_J_K]

Het is netjes als de mensen even hun mailtje kunnen controleren dus ik heb .display gebruikt:

code:

Sub Zendmailtje()

    Dim oOL As Outlook.Application, oMailtje As Outlook.MailItem
    
    Set oOL = GetObject(, "Outlook.Application")
    Set oMailtje = oOL.CreateItem(olMailItem)
    
    With oMailtje
        .Subject = "Order12321"
        .To = "[e-mail]"
        .Body = ActiveDocument.Content
        .Display
        '.Send
    End With
    
    Set oMailtje = Nothing
    Set oOL = Nothing
    
End Sub

Trouwens wel even Outlook via extra -> verwijzingen aanzetten, ook moet OL al draaien, maar natuurlijk kan je OL starten als dit nodig is.

[riffey#4]

Ik heb je regel 3 vervangen, die werkte niet:

code:

 Dim objOL as Object
Set objOL = CreateObject("Outlook.Application")

Bedankt, dat gaat komt al aardig in de buurt!
Alleen wordt alleen de tekst in de body van het bericht meegenomen, en niet het bericht als bijlage.
Hierdoor is het niet mogelijk de opmaak te behouden.

Weet je (iemand) nog iets?

[F_J_K]

Hmm, en bij mij (Off2k) werkt het juist niet met die aanpassing dus ik laat het zo in mijn code
Als attachment is wat minder mooi omdat het dan al moet zijn opgeslagen:

code:

Dim oOL As Outlook.Application
Dim oMailtje As Outlook.MailItem

If Len(ActiveDocument.Path) = 0 Then
    'nog niet opgeslagen -> opslaan in temp dir.
    'Mooier is misschien gewoon vragen eerst op te slaan
    ChangeFileOpenDirectory "C:\Temp\"
    ActiveDocument.SaveAs FileName:="Bestandje.doc"
End If

Set oOL = GetObject(, "Outlook.Application")
Set oMailtje = oOL.CreateItem(olMailItem)

With oMailtje
    .Subject = "Order12321"
    .To = "[e-mail]"
    .Body = "Zie de attachment." & Chr(13) & Chr(10) _
        & "MVrGr, F_J_K" & Chr(13) & Chr(10)
    .Attachments.Add Source:=ActiveDocument.FullName, _
        DisplayName:="bla bla"
    .Display
    '.Send
End With

Set oMailtje = Nothing
Set oOL = Nothing

_{Trouwens staat er wat uitleg over wat wat is in de online help, maar je moet dan natuurlijk wel 'toevalig' weten dat je op bijv. Attachments moet zoeken}

[riffey#4]

F_J_K schreef op 19 november 2003 @ 15:25:
Trouwens wel even Outlook via extra -> verwijzingen aanzetten, ook moet OL al draaien, maar natuurlijk kan je OL starten als dit nodig is.

Excuses, je regel 3 werkt wel, maar ik kon de "verwijzingen" niet vinden in zowel Outlook als Word. Het zit in de VB editor...