S
Sébastien
Guest
Bonjour,
1)Suite au passage de NT4 à XP, je rencontre un soucis sur une macro excel pour l'envoi d'un mail en automatique avec la fonction HasRoutingSlip.
Les déstinataires du mail ne recoivent pas l'attach mais un fichier nommé 'winmail.dat'.
En l'envoyant normalement à partir d'Outlook, il n'y a pas de problème pour lire l'attach.
2)Est il possible d'enlever les fenètres de sécurité entre Excel2003 et Outlook qui demande la confirmation de l'envoi du mail par Outlook
La fonction est la suivante :
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = 'Acces-SDEL'
.Subject = 'Fiche First '
.Message = _
'Bonjour,' & Chr(10) & '' & Chr(10) & 'Veuillez trouver ci joint la fiche first du jour.' & Chr(10) & '' & Chr(10) & '' & Chr(10) & 'Cdlt' & Chr(10) & '' & Chr(10) & 'Didier ARNOULD' & Chr(10) & 'Gestionnaire Accès Sites' & Chr(10) & 'Tél : 03 87 37 43 26'
.Delivery = xlOneAfterAnother
'.ReturnWhenDone = True
'.TrackStatus = True
End With
ActiveWorkbook.Route
ActiveWorkbook.Close SaveChanges:=False
Merci d'avance pour votre aide.
Sébastien
email : sebastien.beyer@fr.sfr.com
1)Suite au passage de NT4 à XP, je rencontre un soucis sur une macro excel pour l'envoi d'un mail en automatique avec la fonction HasRoutingSlip.
Les déstinataires du mail ne recoivent pas l'attach mais un fichier nommé 'winmail.dat'.
En l'envoyant normalement à partir d'Outlook, il n'y a pas de problème pour lire l'attach.
2)Est il possible d'enlever les fenètres de sécurité entre Excel2003 et Outlook qui demande la confirmation de l'envoi du mail par Outlook
La fonction est la suivante :
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = 'Acces-SDEL'
.Subject = 'Fiche First '
.Message = _
'Bonjour,' & Chr(10) & '' & Chr(10) & 'Veuillez trouver ci joint la fiche first du jour.' & Chr(10) & '' & Chr(10) & '' & Chr(10) & 'Cdlt' & Chr(10) & '' & Chr(10) & 'Didier ARNOULD' & Chr(10) & 'Gestionnaire Accès Sites' & Chr(10) & 'Tél : 03 87 37 43 26'
.Delivery = xlOneAfterAnother
'.ReturnWhenDone = True
'.TrackStatus = True
End With
ActiveWorkbook.Route
ActiveWorkbook.Close SaveChanges:=False
Merci d'avance pour votre aide.
Sébastien
email : sebastien.beyer@fr.sfr.com