Correction de code svp

Seb67210 · 6 Juillet 2010

Bonjour,

1) Qui pourrait me modifier ce code afin qu'il utilise Outlook ?
j'ai tenté mais cela ne fonctionne pas...hihi

2) Je souhaiterais que l'email parte tout seul sans forcement cliquer sur le bouton "envoyer" de Outlook

Un grand MERCI d'avance.

---------------------------------------

Sub MailOutlookExpress()
Dim Adresse As String, Sujet As String, Texte As String

Adresse = "moceks@hager.fr"
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
& "Vous trouverez ci joint les infos demandées" & vbCrLf & vbCrLf & _
"Cordialement" & vbCrLf & Environ("UserName")

''''Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''

''''Shell ""C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE
" & "/mailurl:mailto:" & _
'''' Adresse & "?subject=" & Sujet & "&Body=" & Texte
''''

Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
Adresse & "?subject=" & Sujet & "&Body=" & Texte & ""
SendKeys "%I" & "p" & nomfich & "~"
'Signification des caractères après "SendKeys":
'* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
'* ~ = Validation. (~=Entrée)
'* %S = Envoyer.

End Sub

Habitude · 6 Juillet 2010

Re : Correction de code svp

Seb67210 à dit:
Sub LaTotale()

' #######################################
' # 2. Envoi de l'E-Mail avec Outlook : #
' #######################################

' Initialisation :
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)

' Préparation du message :
MonMessage.to = "moceks@hager.fr"

' Récupération de la chaîne d'E-Mails Access :
MonMessage.bcc = ListeComplete
MonMessage.Subject = "Promotions pour les vacances"
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Profitez de nos dernières actions pour la Tunisie"
MonMessage.body = Corps

' C'est parti :
MonMessage.send

' Fermeture de la session Outlook :
Set MonOutlook = Nothing
End Sub

Tu peux toujours afficher le message et l'envoyer en utilisant le sendkeys

Code:

Dim MonOutlook As Outlook.Application
  Dim MonMessage As MailItem
  Set MonOutlook = New Outlook.Application
  Set MonMessage = MonOutlook.CreateItem(olMailItem)

  ' Préparation du message :
  MonMessage.to = "moceks@hager.fr"
  
  ' Récupération de la chaîne d'E-Mails Access :
  MonMessage.bcc = ListeComplete
  MonMessage.Subject = "Promotions pour les vacances"
  Corps = "Bonjour,"
  Corps = Corps & Chr(13) & Chr(10)
  Corps = Corps & "Profitez de nos dernières actions pour la Tunisie"
  MonMessage.body = Corps
  
  ' Affichage :
  MonMessage.Display
  
  'Attente
 Dim Debut As Long, Fin As Long
 Debut = Timer
 Fin = Debut + 1 '1 seconde
 Do Until Timer >= Fin
 DoEvents
 Loop
  
  'envoie ctrl-enter
  
  SendKeys "^{enter}"
  
  'vider controle
  Set MonOutlook = Nothing
  Set MonMessage = Nothing

Seb67210 · 7 Juillet 2010

Re : Correction de code svp

Super merci....

Depuis j'ai avance un peu plus...
Lors de l'enregistrement du fichier, celui-ci envoye un mail à ceux présent dans la liste de diffusion, jusque là tout va bien.

Mon problème est lorsque Outlook n'est pas lancer...
Qui connait le code a rajouter afin de tester si Outlook est déjà ouvert et si cela n'est pas le cas, le lancer ?

Merci d'avance, comme d'habitude vous êtes tous super !

Habitude · 8 Juillet 2010

Re : Correction de code svp

A moins que je ne me trompe.
Tu ne peux pas lancer Outlook 2 fois.

Ce qui signifie que tu as juste à le lancé.

S'il est déjà lancé, il va juste prendre le focus.

Correction de code svp

Seb67210

XLDnaute Junior

Habitude

XLDnaute Accro

Seb67210

XLDnaute Junior

Pièces jointes

Habitude

XLDnaute Accro

Discussions similaires

Correction de code svp

Seb67210

XLDnaute Junior

Habitude

XLDnaute Accro

Seb67210

XLDnaute Junior

Pièces jointes

Habitude

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency