Envoi de mail automatique
Fermé
Jiboubou
Messages postés
3
Date d'inscription
jeudi 30 juin 2016
Statut
Membre
Dernière intervention
1 juillet 2016
-
30 juin 2016 à 09:04
le meruvien Messages postés 1113 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 3 mai 2024 - 1 juil. 2016 à 10:55
le meruvien Messages postés 1113 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 3 mai 2024 - 1 juil. 2016 à 10:55
A voir également:
- Envoyer un mail automatique outlook toutes les semaines
- Réponse automatique outlook - Guide
- Creer adresse mail outlook - Guide
- Yahoo mail - Guide
- Nouveau outlook - Guide
- Supprimer adresse mail outlook - Guide
1 réponse
le meruvien
Messages postés
1113
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
3 mai 2024
40
1 juil. 2016 à 06:32
1 juil. 2016 à 06:32
bonjour, essaye ça:
Dim destinataire As String, cc As String, cci As String, message As StringOn Error GoTo erreur DoCmd.OpenForm "adresses mail"
destinataire = Forms![adresses mail].destinataire
cc = IIf(IsNull(Forms![adresses mail].cc), "", Forms![adresses mail].cc)
cci = IIf(IsNull(Forms![adresses mail].cci), "", Forms![adresses mail].cci) message = Forms![fiche de proposition].[client] & "-" & Forms![fiche de proposition].[N°] & "-" & Forms![fiche de proposition].[date_creation]
DoCmd.OpenReport "feuille de calcul prix de vente", acPreview, "", "[affaire]=[Forms]![fiche de proposition].[affaire]"
DoCmd.SendObject acReport, "feuille de calcul prix de vente", "SnapshotFormat(*.snp)", destinataire, cc, cci, message, "", False, "" ‘si ce param est nul, ouverture de la boite outlook
DoCmd.Close acReport, "feuille de calcul prix de vente"
sortie:
DoCmd.Close acForm, "adresses mail"
Forms![menu general].Visible = True
Forms![fiche de proposition].Visible = True
Exit Sub
Erreur:
Msgbox err.description
Resume sortie
1 juil. 2016 à 08:28
Merci de ta réponse mais ça ne fonctionne pas
Il n'y a rien de plus simple ?
1 juil. 2016 à 09:39
1 juil. 2016 à 10:28
Vba m'aurait signalé l'erreur sinon.
Tu a pas mis le "h" au bon endroit dans " orthographe"...
1 juil. 2016 à 10:44
Pour ton problème, essaye avec un autre format, par exemple
"SnapshotFormat(*.snp)",
1 juil. 2016 à 10:55
titre = "Facture-" & Me!Numéro_facture & ".pdf"
DoCmd.OutputTo acOutputReport, état, acFormatPDF, "d:\factures\" & titre
Mais attention, tu dois télécharger le module:
SaveAsPDFandXPS
va le cherche là: http://www.cjoint.com/c/FGbi2Ycas6d