Macro/envoi de mail sur excel
JB la chouette
-
JB la chouette Messages postés 1 Statut Membre -
JB la chouette Messages postés 1 Statut Membre -
Bonjour,
Je suis en peine avec un fichier excel pour gestion d'un stock chez un fournisseur.
Dans mon tableau, je souhaite créé un bouton pour envoyer des mails pour entrée et sortie de stock.
En G j'ai un texte compilé automatiquement par excel que je souhaite envoyé en cliquant sur un lien/bouton en I, un second mail peut être envoyé en sortie dans la colonne F et bouton en J.
Les destinataires est toujours le même
Boutons sur toutes les lignes en fonction des infos des lignes 5 à 100
Merci pour votre aide.
Je suis en peine avec un fichier excel pour gestion d'un stock chez un fournisseur.
Dans mon tableau, je souhaite créé un bouton pour envoyer des mails pour entrée et sortie de stock.
En G j'ai un texte compilé automatiquement par excel que je souhaite envoyé en cliquant sur un lien/bouton en I, un second mail peut être envoyé en sortie dans la colonne F et bouton en J.
Les destinataires est toujours le même
Boutons sur toutes les lignes en fonction des infos des lignes 5 à 100
Merci pour votre aide.
1 réponse
-
Bonsoir,
J'ai pas mal avancé mais j'ai un léger soucis, j'aimerai que si la colonne C (3) est vide, cela passe à la ligne suivante.
Sub Email()
Dim outlookDossier As Outlook.MAPIFolder
Dim outlookMessage As Outlook.MailItem
Dim Envoyer_à As String
Dim Copie_à As String
Dim vObjet As String
Dim vMessage As String
Dim vCellule As Object
Dim Sign As String
Dim Sig As String
Envoyer_à = "e@gmail.com"
Copie_à = "jb@t.fr "
Lig = 4
Do While Cells(Lig, 3).Value <> ""
If Cells(Lig, 7).Value = "" Then
Cells(Lig, 7).Value = "Envoyé"
vObjet = "Stock Delfly" ' description
vMessage = "Bonjour,</br></br>" _
& "Un conducteur de la société va se présenté chez vous pour reprendre sur notre compte le container " & Cells(Lig, 4).Value _
& "</br></br>Merci d'autoriser la sortie,</br></br>" _
& "Cordialement</br></br>" _
& "Exploitation - Tr</br></br>"
Set outlookDossier = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set outlookMessage = outlookDossier.Items.Add
With outlookMessage
.Subject = vObjet
.To = Envoyer_à
.CC = Copie_à
.HTMLBody = vMessage
.Send
End With
End If
Lig = Lig + 1
Loop
Set outlookMessage = Nothing
Set outlookDossier = Nothing
End Sub
