Logiciel mail compatibe avec Excel

[stanislas]

Bonjour à tous,

Je cherche un logiciel mail qui me permette de faire un mailing personallisé. genre publipostage mais sans passer par word.😕

exemple:

Dear "xxx",

voila la seule donnée que je souhaite personnalisé: le prénom:

Le logiciel irait chercher le prénom dans la colonne A et son adresse mail dans la colonne B;

Une idée ? Un logiciel gratuit serait le bienvenue.

Merci pour vos suggestions.

 

[MJ13]

Re : Logiciel mail compatibe avec Excel

Bonjour

J'en connais un: il s'appelle Excel mais il n'est pas gratuit!

 

[stanislas]

Re : Logiciel mail compatibe avec Excel

Je suis un vrai bleu.😀

Pouvez vous me donner des explication ? (mécaniques, configurations...)

J'ai plus de deux milles à effectuer...

Merci

 

[MJ13]

Re : Logiciel mail compatibe avec Excel

Re

Fait une recherche avancée sur le forum avec mail dans l'intitulé.

Bonne lecture.

 

[stanislas]

Re : Logiciel mail compatibe avec Excel

Re...

Bon Merci pour le conseil, la recherche sur le forum est une très bonne source d'infos. (surtout quand on cherche bien...)

Malheureusement, je ne trouve pas mon bonheur...

Pour le mailing massif personnalisé et automatisé------> Si quelqu'un à la patience de m'expliquer ce serait grandiose.

voila un exemple de mon tableau qui a plus de 1800 entrées....

Un gros merci!

 

[Guiv]

Re : Logiciel mail compatibe avec Excel

Re bonjour,

Une solution par Ron Debruin:

Option Explicit

[COLOR="SeaGreen"]'Make a list in Sheet("Sheet1") with
'In column A the names of the people
'In column B the E-mail addresses

'
'The Macro will loop through each row in Sheet1 and if there is a E-mail address in column B
'and "yes" in column C it will create a mail with a reminder like this for each person.
'
'Exemple de message:
'Dear Jelle (Jelle is a name in column A for example)
'
'Please contact us to discuss bringing your account up to date
[/COLOR]

Sub CDO_Personalized_Mail_Body()
    Dim iMsg As Object
    Dim iConf As Object
    Dim cell As Range
    Dim Flds As Variant

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set iConf = CreateObject("CDO.Configuration")

        iConf.Load -1    ' CDO Source Defaults
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = [COLOR="Red"]"TonServeurSMTP"[/COLOR]
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

    For Each cell In Sheets("Sheet1").Columns("B").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Offset(0, 1).Value <> "" Then
            If cell.Value Like "?*@?*.?*" Then
                Set iMsg = CreateObject("CDO.Message")
                With iMsg
                    Set .Configuration = iConf
                    .To = cell.Value
                    .From = [COLOR="Red"]"""Stanislas"" <stanislas@machin.fr>"[/COLOR]
                    .Subject = [COLOR="Red"]"TonSujet"[/COLOR]
                    .TextBody = [COLOR="Red"]"Dear "[/COLOR] & cell.Offset(0, -1).Value & vbNewLine & vbNewLine & _
                                [COLOR="Red"]"TonMessage"[/COLOR]
                    .Send
                End With
                Set iMsg = Nothing
            End If
        End If
    Next cell

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

End Sub

A copier dans un module standard.
Les parties en rouge sont à adapter à ton cas.

Dis si ça fonctionne (je n'ai pas pu t'aider ce matin, ce sera peut-être mieux cette fois!)
Cordialement,
Guiv

 

[MJ13]

Re : Logiciel mail compatibe avec Excel

Bonjour Guiv, Re Stan...

Le problème Stanislas c'est que tu ne donnes pas ton client de messagerie!

 

[stanislas]

Re : Logiciel mail compatibe avec Excel

Guiv Guiv Guiv....!!!!

Pas encore essayer mais voilà un message qui me réconforte...

Je suis certain que ce coup c'est le bon, je pars du boulot et j'essaie ça ce soir à la maison...Te donne une réponse demain dans la matinée...

En tout cas que ça marche ou que ça ne marche pas....la bonne volonté est grandement apprécié!!

Merci!!

 

[Guiv]

Re : Logiciel mail compatibe avec Excel

Re le fil

Le problème Stanislas c'est que tu ne donnes pas ton client de messagerie!

Pas la peine avec CDO! C'est pour ça que c'est top, pas de message de sécurité, pas de problème MicrosoftOutlook, OE, Thunderbird...

En fin moi, je ne me sers plus que de ça (mais je n'ai pas encore testé l'envoi d'après une liste)

A+
Guiv

 

[MJ13]

Re : Logiciel mail compatibe avec Excel

Re

Pas la peine avec CDO! C'est pour ça que c'est top, pas de message de sécurité, pas de problème MicrosoftOutlook, OE, Thunderbird...

Oui tu as raison Guiv.

Moi non plus je ne l'ai jamais testé (cela ne me dit rien,mais si j'ai du temps à perdre un jour).

Mais pour un entreprise, en général, on a Outlook, alors que doit t'on faire?

 

[Guiv]

Re : Logiciel mail compatibe avec Excel

Re,

Mais pour un entreprise, en général, on a Outlook, alors que doit t'on faire?

OutLook (Express)? Le foutre à la poubelle et adopter MicrosoftOutlooK!
Mais blagues à part, CDO fonctionne sur tous les postes chez moi, certains sous OE, d'autres sous MO. Je suis absolument incapable de comprendre comment fonctionne CDO, mais ça marche.
Voir là: Sending mail from Excel with CDO
Bonne soirée
Guiv

 

[stanislas]

Re : Logiciel mail compatibe avec Excel

Je ne pouvais pas attendre...

J'ai essayer et j'ai échoué....

Quand j'exécute le module, ce message apparait:

"Erreur d'exécution "9"
L'indice n'appartient pas a la sélection"

et cette ligne de la formule est surligné en jaune:

For Each cell In Sheets("Sheet1").Columns("B").Cells.SpecialCells(xlCellTypeConstants)

Guiv ton aide m'est precieuse et je dois surement faire une erreur quelque part...

On retente demain ?

Merci!🙂

 

[Guiv]

Re : Logiciel mail compatibe avec Excel

Re,
Remplace "Sheet1" par "Feuil1" partout...

Il faut aussi remplacer:

If cell.Offset(0, 1).Value <> "" Then

par

If cell.Offset(0, -1).Value <> "" Then

Bonne soirée

 

[stanislas]

Re : Logiciel mail compatibe avec Excel

@Guiv🙂

Salut

Bon encore une petite erreur...Peut-être que le serveur ou je bosse ne permet pas l'opération....En tout cas cette fois la macro se lance (en cours d'exécution) puis au bout d'une trentaine de seconde se plante...

Message d'erreur:
Erreur d'execution: '-2147220973 (80040213)':
Le transport à echoué dans sa connexion au serveur

Ligne surligné après débogage

.Send
End With
Set iMsg = Nothing
End If
End If
Next cell

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

End Sub

Merci! @+

 

[Guiv]

Re : Logiciel mail compatibe avec Excel

Re,
Sans doute effectivement une erreur dans le nom de serveur SMTP.
J'ai testé de chez moi ce matin et ça fonctionne.

Tu dois avoir un nom de serveur style "smtp.free.fr" ou "mail.tasociété.fr". En principe tu dois le trouver dans les paramètres de ton compte de messagerie (Outlook Express ou Microsoft Outlook ou Thunderbird ou ce que tu utilises...
Attention aussi de bien respecter les guillemets partout.
A tester...

Guiv