Création d'un mail Outlook à compléter depuis AccessRésolu

Question

Bonjour, 
J'ai crée une fonction qui me permet d'intégrer dans un nouveau mail en pièce jointe un document sélectionné. Je ne voudrais pas qu'il parte de suite, juste qu'il se créé avec un sujet par défaut et le document intégré. Est il possible d’afficher mon mail avant de l’envoyer ?Outlook.visible true ou Mapi.visible true ne marche pas…..
Merci

Function MailPieceJointe()
    
    On Error GoTo Outlook_SendMail_Err
    Dim Outlook, MAPI as Object
    Dim Msg As String
    Dim theMailItem
    Dim objOutlookAttach As Outlook.Attachment
    MAILBOX_STATE = 200
       
Set Outlook = CreateObject("Outlook.Application")
Set MAPI = Outlook.GetNamespace("MAPI")
Set theMailItem = Outlook.CreateItem(olMailItem)
    With theMailItem
        .Subject = " Envoi fichier " & adresse
        Set objOutlookAttach = .Attachments.Add(adresse)
        ‘.Send
    End With
    DoEvents

End Function

Isa

isa911 · Accepted Answer

Zubral : Je penses que la proprité visible ne fonctionne pas dans ce cas ...

Finalement, je suis passée par un formulaire dans lequel j'ai mis ma fonction d'enregistrement du mail sur l'envoi.

sophmef1 · Answer

Salut !

Si ça peut t'aider j'ai le code pour afficher un mail dans outlook, après tu intègreras ta fonction

Private sub mnu_outlook_click()
Dim olook as outlook.application
dim omail as mailitem
set olook=new outlook.application
Set omail = OLook.CreateItem(olMailItem)
omail.To = txtadresse
'renseigne la zone A...
omail.Subject = "le texte que tu veux"
'renseigne la zone objet
omail.Body = "le texte que tu veux"
'renseigne le corps du texte
omail.Display
End Sub

Avant tu ajoutes la références microsoft outlook 9.0 object library et c'est bon

Peut etre que tu peux inserer une pièce jointe en utilisant "omail. ", je ne sais pas

Sophie

isa911 · Answer

Merci,

Maintenant, je cherche une facon de faire pour que le mail créé s'enregistre automatiquement une fois envoyé, je peux l'enregistrer en le créant mais la modification faite par l'utilisateur avant l'envoi n'est pas enregistrée automatiquement dasn un fichier .doc .....

Tu crois qu'il y a une option dans Outlook 97 ?
Ou il faut passer par un Formulaire ?

Enfin, voila, un problème est resolu qu'il y en 10 qui arrivent par la suite ... :-)

A+++

Isa

sophmef1 · Answer

Pour l'enregistrer automatiquement ça doit etre quelquechose comme :

olook.omail.close savechanges=true
Je n'ai pas essayé, si ça ne marche pas, je ne sais pas.

Et oui plus pour moi c'est pareil, je résouds un pb, et il y en a quinze qui arrivent.....

Sophie

Merci,

Maintenant, je cherche une facon de faire pour que le mail créé s'enregistre automatiquement une fois envoyé, je peux l'enregistrer en le créant mais la modification faite par l'utilisateur avant l'envoi n'est pas enregistrée automatiquement dasn un fichier .doc .....

Tu crois qu'il y a une option dans Outlook 97 ?
Ou il faut passer par un Formulaire ?

Enfin, voila, un problème est resolu qu'il y en 10 qui arrivent par la suite ... :-)

A+++

Isa

zubral · Answer

Bonjour,

Stagiaire en entreprise en Roumanie, je dois creer un outil qui permette a partir d'une base de donnees Access sur les projets de l'entreprise d'automatiser l'envoi d'emails, le remplissage d'un calendrier et d'autres petits plaisirs dans Outlook 2000. Sauf... que je suis debutant dans ce domaine (desole pour les accents je suis sur un clavier qwerty).
Quand je cree une macro comme ceci :


Sub Macro1()
    Dim OLApp As Object
    Set OLApp = CreateObject("Outlook.Application")
    OLApp.Visible = True
    Set OLApp = Nothing
End Sub


Il me sort un run-time error 438 (Object doesn't support this property or method). Si quelqu'un peut m'aider ce serait cool.

Merci d'avance.

Zubral

mimi_oriental · Answer

SALUT


j'ai un mini projet à réaliser qui porte sur la gestion d'import , j'ai crée mon menu général , dans une formulaire de fournisseur je veux quand je clique sur un bouton le outlook apparait et puis je tape mon message et je l'envoie à ce fournisseur
merci d'avance

Création d'un mail Outlook à compléter depuis Access

6 réponses

Discussions similaires