Suppression MsgBox Outlook (envoie mail automatique)
3 réponses
kanasurf
Bonjour =E0 tous,
J'utilise une macro qui me permet d'envoyer automatiquement des mails
depuis Excel d'aor=E8s une liste de nom. Cette macro fonctionne
parfaitement mais pour chaque mail qu'elle envoie, j'ai une boite de
dialogue qui me dit:
"Un programme tente d'envoyer automatiquement du courrier =E9lectronique
en votre nom.
L'autorisez-vous =E0 poursuivre"
Comment supprimer cette boite de dialogue (autoriser automatiquement
l'envoie) ?
Merci =E0 tous ceux qui pourront m'aider...
Voici la macro que j'utilise:
Sub envoiemail()
'
' envoiemail Macro
' Macro enregistr=E9e le 15/02/2007 par FR026674 (CEVALTE Vincent) sur
SDA026674
'
Dim i As Variant
Dim NbVendeur As Variant
NbVendeur =3D Sheets("IV_Mail").Range("E1").Value
For i =3D 1 To NbVendeur
Dim OutApp As Object
Dim OutMail As Object
Dim Message As String
Dim objOutlookAttach
Var =3D Range("IV_Mail!A" & i)
Mail =3D Range("IV_Mail!B" & i)
Set OutApp =3D CreateObject("Outlook.Application")
Set OutMail =3D OutApp.CreateItem(olMailItem)
Message =3D "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
With OutMail
.To =3D Mail
.CC =3D ""
.BCC =3D ""
.Subject =3D "This is the Subject line"
.Body =3D Message
Set objOutlookAttach =3D .Attachments.Add("D:\Documents and
Settings\FR026674\Mes Documents\" & Var & ".xls")
.Send
End With
ClickYes ClickYesSetup.exe 94 Ko 1.1 Permet de passer outre la protection d'accès au carnet d'adresses qui demande la confirmation de l'utilisation de ce dernier Contextmagic YesXpress
YesXpress.msi 1.28 Mo 1.0.0 Idem que ClickYes. Il appui sur le bouton Oui a votre place, car MS ne permet pas de désactiver cette protection d'une manière plus agréable.
"kanasurf" a écrit dans le message de news:
Bonjour à tous,
J'utilise une macro qui me permet d'envoyer automatiquement des mails depuis Excel d'aorès une liste de nom. Cette macro fonctionne parfaitement mais pour chaque mail qu'elle envoie, j'ai une boite de dialogue qui me dit: "Un programme tente d'envoyer automatiquement du courrier électronique en votre nom. L'autorisez-vous à poursuivre"
Comment supprimer cette boite de dialogue (autoriser automatiquement l'envoie) ?
Merci à tous ceux qui pourront m'aider...
Voici la macro que j'utilise: Sub envoiemail() ' ' envoiemail Macro ' Macro enregistrée le 15/02/2007 par FR026674 (CEVALTE Vincent) sur SDA026674 ' Dim i As Variant Dim NbVendeur As Variant
NbVendeur = Sheets("IV_Mail").Range("E1").Value
For i = 1 To NbVendeur
Dim OutApp As Object Dim OutMail As Object Dim Message As String Dim objOutlookAttach
Var = Range("IV_Mail!A" & i) Mail = Range("IV_Mail!B" & i)
Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) Message = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4"
With OutMail .To = Mail .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = Message Set objOutlookAttach = .Attachments.Add("D:Documents and SettingsFR026674Mes Documents" & Var & ".xls") .Send End With
ClickYes
ClickYesSetup.exe
94
Ko 1.1 Permet de passer outre la protection d'accès au
carnet d'adresses qui demande la confirmation de
l'utilisation de ce dernier Contextmagic
YesXpress
YesXpress.msi 1.28
Mo 1.0.0 Idem que ClickYes. Il appui sur le bouton Oui a
votre place, car MS ne permet pas de désactiver cette
protection d'une manière plus agréable.
"kanasurf" <vcevalte@gmail.com> a écrit dans le message de news:
1171536898.882678.10890@q2g2000cwa.googlegroups.com...
Bonjour à tous,
J'utilise une macro qui me permet d'envoyer automatiquement des mails
depuis Excel d'aorès une liste de nom. Cette macro fonctionne
parfaitement mais pour chaque mail qu'elle envoie, j'ai une boite de
dialogue qui me dit:
"Un programme tente d'envoyer automatiquement du courrier électronique
en votre nom.
L'autorisez-vous à poursuivre"
Comment supprimer cette boite de dialogue (autoriser automatiquement
l'envoie) ?
Merci à tous ceux qui pourront m'aider...
Voici la macro que j'utilise:
Sub envoiemail()
'
' envoiemail Macro
' Macro enregistrée le 15/02/2007 par FR026674 (CEVALTE Vincent) sur
SDA026674
'
Dim i As Variant
Dim NbVendeur As Variant
NbVendeur = Sheets("IV_Mail").Range("E1").Value
For i = 1 To NbVendeur
Dim OutApp As Object
Dim OutMail As Object
Dim Message As String
Dim objOutlookAttach
Var = Range("IV_Mail!A" & i)
Mail = Range("IV_Mail!B" & i)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Message = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
With OutMail
.To = Mail
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = Message
Set objOutlookAttach = .Attachments.Add("D:Documents and
SettingsFR026674Mes Documents" & Var & ".xls")
.Send
End With
ClickYes ClickYesSetup.exe 94 Ko 1.1 Permet de passer outre la protection d'accès au carnet d'adresses qui demande la confirmation de l'utilisation de ce dernier Contextmagic YesXpress
YesXpress.msi 1.28 Mo 1.0.0 Idem que ClickYes. Il appui sur le bouton Oui a votre place, car MS ne permet pas de désactiver cette protection d'une manière plus agréable.
"kanasurf" a écrit dans le message de news:
Bonjour à tous,
J'utilise une macro qui me permet d'envoyer automatiquement des mails depuis Excel d'aorès une liste de nom. Cette macro fonctionne parfaitement mais pour chaque mail qu'elle envoie, j'ai une boite de dialogue qui me dit: "Un programme tente d'envoyer automatiquement du courrier électronique en votre nom. L'autorisez-vous à poursuivre"
Comment supprimer cette boite de dialogue (autoriser automatiquement l'envoie) ?
Merci à tous ceux qui pourront m'aider...
Voici la macro que j'utilise: Sub envoiemail() ' ' envoiemail Macro ' Macro enregistrée le 15/02/2007 par FR026674 (CEVALTE Vincent) sur SDA026674 ' Dim i As Variant Dim NbVendeur As Variant
NbVendeur = Sheets("IV_Mail").Range("E1").Value
For i = 1 To NbVendeur
Dim OutApp As Object Dim OutMail As Object Dim Message As String Dim objOutlookAttach
Var = Range("IV_Mail!A" & i) Mail = Range("IV_Mail!B" & i)
Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) Message = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4"
With OutMail .To = Mail .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = Message Set objOutlookAttach = .Attachments.Add("D:Documents and SettingsFR026674Mes Documents" & Var & ".xls") .Send End With
Set OutMail = Nothing Set OutApp = Nothing
Next
End Sub
kanasurf
L'entreprise dans laquelle je travaille ne me permet pas d'installer de logiciel de ce type. Pensez-vous qu'il existe un atre moyen de faire??
Merci d'avance..
L'entreprise dans laquelle je travaille ne me permet pas d'installer
de logiciel de ce type. Pensez-vous qu'il existe un atre moyen de
faire??
