IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro envoi de mail depuis excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Consultant E-Business
    Inscrit en
    Décembre 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Réunion

    Informations professionnelles :
    Activité : Consultant E-Business

    Informations forums :
    Inscription : Décembre 2015
    Messages : 2
    Par défaut Macro envoi de mail depuis excel
    Bonjour, j'ai un souci avec mon code.

    Je souhaite faire une marco qui envoi un mail à chaque destinataire issu de chaque ligne et ce en une fois.

    J'ai la macro pour envoyer le mail au bon format avec les bonnes données, il ne me manque plus qu'a le faire passer à la ligne suivante et répéter l'opération et ce sur les 50 lignes suivantes.

    voici le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     Sub mail()
    Dim i As Integer
    Dim ol  As Object, olmail As Object
    Set ol = CreateObject("Outlook.Application")
    Set olmail = ol.Application.CreateItem(olMailItem)
     
     
    With olmail
            i = ActiveCell.Row
            .To = "smsmonitor@sogecoreunion.com "
            .Subject = "Confirmation de rdv"
            .HTMLBody = "GSM:0" & Cells(i, 8) & " <br/><br/>Je vous confirme le rendez-vous pour votre " & Cells(i, 3) & " à " & Cells(i, 11) & ",d'ici là, roulez prudement. Votre conseiller client " & Cells(i, 12) & "."
            .Display
            .Send
        End With
     
    End Sub
    si quelque 'un peut me filer un coup de main , je lui envoie du rhum de la reunion :o)

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut,
    à lire : Dernière ligne et la dernière colonne renseignées d'une feuille
    CodeName

    Bref bestialement qqch dans ce genre ( pas testé )

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    Option Explicit
     
    Sub mail()
    Dim i As Long
    Dim ol As Object, olmail As Object
    Dim LastRow As Long
     
        Set ol = CreateObject("Outlook.Application")
        Set olmail = ol.CreateItem(olMailItem)
        LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
     
        For i = 2 To LastRow
            With olmail
                .To = "smsmonitor@sogecoreunion.com "
                .Subject = "Confirmation de rdv"
                .HTMLBody = "GSM:0" & Feuil1.Cells(i, 8) & " <br/><br/>Je vous confirme le rendez-vous pour votre " & Feuil1.Cells(i, 3) & " à " & Cells(i, 11) & ",d'ici là, roulez prudement. Votre conseiller client " & Feuil1.Cells(i, 12) & "."
                .Display
                .Send
            End With
        Next i
     
        Set olmail = Nothing
        Set ol = Nothing
    End Sub
    P.-S. : Balise ton code

  3. #3
    Candidat au Club
    Homme Profil pro
    Consultant E-Business
    Inscrit en
    Décembre 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Réunion

    Informations professionnelles :
    Activité : Consultant E-Business

    Informations forums :
    Inscription : Décembre 2015
    Messages : 2
    Par défaut
    Merci pour le code, cela dit j'ai un souci ligne 9 sur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set olmail = ol.Application.CreateItem(olMailItem)
    excel dit erreur de compilation pas de variable définie?

    une idée?

  4. #4
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Re, msg précédent effacé par erreur ... , bref voir ici

    à lire : Dernière ligne et la dernière colonne renseignées d'une feuille
    CodeName

  5. #5
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 093
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 093
    Billets dans le blog
    20
    Par défaut
    Bonjour,

    il faut ajouter une "référence" à "Microsoft OUTLOOK xx.0 Object library" ou déclarer les constantes d'outlook.
    Have a nice day. Oliv'
    Votre réponse est peut être dans mon blog !
    https://www.developpez.net/forums/blogs/191381-oliv-/

Discussions similaires

  1. [XL-2007] envoi mail depuis excel
    Par luko6 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 23/08/2010, 21h59
  2. [VBA] Gérer la taille des cellules lors de l'envoi de mail depuis excel
    Par Arschney dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 06/06/2007, 10h58
  3. [VBA-E] Envoi d'un mail depuis Excel avec lien hypertexte
    Par SlySylvain dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 23/05/2007, 17h54
  4. Envoi de mail depuis Excel 2003 via Outlook 2003
    Par SlySylvain dans le forum Excel
    Réponses: 2
    Dernier message: 19/04/2007, 09h01
  5. Fenetre de validation sur l'envoi de mail depuis Excel
    Par pascal58 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 06/11/2006, 18h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo