envoyé fichier par email

[news]

Bonjour à tous du forum,

je voudrais envoyer un fichier directement par email,
sans que le screan est affiché: "un programme tente d'envoyer automatiquement un email ... ", mais l'envoie directement
et que le fichier Excell est envoyé avec.

J'utilise les expressions suivantes, en clickant sur un button de commande lequel effectue l'expression suivante:

Private Sub sent_email_Click()
Workbooks("sent_email,.xls").SendMail Recipients:=".....@.....", Subject:="verify"
End Sub
ou bien:

Private Sub sent_email_Click()
Dim NewBook As Workbook

NewBook.SendMail ".....@.....", "verify",
True 'NewBook.SendMail "A", "B", True
NewBook.Close False
End Sub

avec l'expression ci-dessus il y a un bug, lors lancement macro, qu'on ne clique par sui Yes, mais on clique sur No.

comment résoudre?,

bonne journée encore,

 

[Creepy]

Re : envoyé fichier par email

Bonjour le Forum, News,

Pour ton problème de boite de dialogue c'est à cause du reforcement de la sécurité dans Office 2000 SP2 et + ou Office 2003.

Ce sont des paramètres au niveau du serveur exchange, tu ne peux rien y faire. La seule solution est d'installer sur ton poste un petit logiciel qui contourne ce problème : ClickYes.

Tu trouveras l'archive à télécharger et le code à mettre pour activer clickyes ici :

A program is trying to send e-mail on your behalf. Stop this message with ClickYes.

@+

Creepy

 

[Staple1600]

Re : envoyé fichier par email

Bonjour le forum, Creepy


Si tu es sous XP (ou supérieur)

Tu utilisé CDO, et ainsi tu n'auras aucun message d'alerte

(cf. voir ici)

(PS: page en anglais, que tu peux traduire -
-> outils linguistique des moteurs de recherche).


Tu peux aussi chercher sur le forum car le sujet a déjà été évoqué.

edit: par exemple sur ce post: pb-de-securite-pour-envoi-de-mail

Le lien que je t'indique était déjà cité par Catrice


A+

Staple

 

[news]

Re : envoyé fichier par email

merci Creepy et Staple1600 pour réponse si vite
et du file/lien d'un programme pour résoudre, que ce screan n'est plus affiché,

cela fonctionne très bien, n'est plus affiché telle information.

si quand même on veut pas installer un tel programme,
comment résoudre l'erreur affiché "erreur d'exécution 1004", ou est-ce qu'on ne le peut pas parce que ceci virent du reforcement de la sécurité dans Office 2000 SP2 et + ou Office 2003.

>> Si tu es sous XP (ou supérieur) tu utilisé CDO, et ainsi tu n'auras aucun message d'alerte

j'ai regardé un peut ce contenu, pour moi étant un peu compliqué
à comprendre, je vais essayer à l'utiliser,

bonne journée encore,

 

[news]

Re : envoyé fichier par email

bonjour au fil et à tous du forum,

j'ai trouvé, repris d'autre expression et fonctionnant bien,
comme on peut mettre du texte avec l'envoi,

Sub Envoi_email()

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String

MailAd = ".....@.......lu" 'MailAd = Range("A1")
Subj = "verify it" 'Subj = Range("A2")
Msg = "la macro fonctionne bien et envoi le fichier par email, bonne journée encore, news" 'Msg = Msg & Range("A3")

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub